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EDITORS COLUMN 

19B1 is behind us and as I look baci<, t am pleased to see how 
much has been accomplished for FORTH, FIG and FORTH 
DIMENSIONS. 

I really appreciate all the help and support I haive raoeived 
from our readers. I have not done everything right and some of 
the beat help has b«en your disagreement. Intelligent, construc- 
tive criticism is as welcome as earned praise. 

1982 will be a year of conUnued growth. You can look 
forward to continuing responsivene^ tt is nny plan to contact 
ovary FIG chq>ter by telephone at least quarterly to get f eedbadc 
and encourage reader contributions. 

FORTH DIMEN5IOIS will also be awarding AUTHOR'S 
CERTIFICATES for outstantflng articles that contribute to the 
growth and understanding of the language. While we are not yat 
in a position to give you cash for your contributions, we at least 
will give you cre^t. 

Starting in tills issue will be a poUcy of putting in tutorial 
articles designed to help our entry level readers. This, however, 
will not be done at the expense of our more seasoned FIGGERS 
who will find an expanded base of challenging articles and 

applications. 

In closing, I want to say that the vm'iter's kits have finally 
come off the presses and I will be glad to send one to anyone who 
wants to contribute. Please send in applications and utilities, 
philosophy, questions and problems — in the final analysis, 
FORTH DIMENSIONS is what you make it. 



C. J. Street 



PUeUSHER*S COLUMN 

1981 has been a great year for FORTH, the FWTH Interest 
Group and for me, personally. FORTH has spread around the 
world and is being used on thousands of computer and 
microprocessor-based products. It is being taught extensively in 
schools, companies and by FORTH programmers. FIG has just 
completed its most, successful national convention with almost 
5D0 attendees, over 20 exhibil or:; :ind multiple sessions. (Thanks 
to Bob Rsiling, Conference Chairman and v?ary Feterbaciij 
Program Chairman.} The FORML conferenct? wns wpII attended 
and the Proceedings are now available--see order form. 

My deepest thanks to the FORTH community for "THE 
FIGGY", Man of Year Avjurd. It was a fantastic thrill and a 
surprise. I stand in good company. 



Roy C. Martens 



Page 134 



FORTH DIMENSIONS IIl/S 



LETTERS TO THE EDTTORS 



DEA- CHU- 



Oear Fig: 

I have developed a process-simulation 
program that occupies very little memory 
apace and yet has many uf the capabilities 
of commercial simulation packages. 

I have been heavily involved in model- 
ing and simulation of automated manufac- 
turing systems for over six years. My 
ultimate objective for this work ia to 
develop a mlcroproceasar-baMcI Emulation 
capability which incoiporatea praceas 
control structures far beyond those of 
currently sivailable languages. Howewr, 
the relatively extendve modeling power of 
the current cods would seem to offer In- 
teresting market potential In Ita own 
right. 

If you can provide information on 
marketing such a product, please contact 
me by mail or by phone (home (317) 447- 
9206, office 017) 749-2946). 

Joseph Tel av age, Ph.D. 
3907 Prange Or. 
Lafayette, IN 47905 

Hope printing your letter helps.— ed. 



Dear Fig: 

I am puzzled as to why 1 have not seen 
mention in your New Products announce- 
ments of fulIFORTH+ for PET, available 
also, I believe for /^le. It Is published by 
lOPC, Co., PO Bosc 11594, Bethlehem 
Pike, Colmar, PA 1891? at $6?. It is 
advertised as "A f^ll-featured FORTH 
with extensions conforming to Forth 
Interest Group standards. Includes as- 
sembler, string processing capabilities, 
disk virtual memory, multiple dimensioned 
arrays, floating point and integer pro- 
cessing." Surely, funFORTH+ is worth a 
mention, if not a comprehensive review! 

Francis T. Chambers 
ROCK HOUSE 
Bally oroy, Westport 
Co. Mayo, Ireland 

Thank you for your interest. This was 
revlew/ed in VoL HI, ifit—tA 



Dear FIgt 

This is our response to Chuck's 
(Moore's) cute letter. 

Arthur Goldberg 
Spencer Sool-too 

CEDARS SINAI MEDICAL CTR. 
9700 Beverly Blvd. 
Lob Angeles, CA 90048 



WE CHA YOU TO COIsl THE 

CON OF THi- CON LET — . WE! 

CLA- THA- THE CON OF A WOR- IN 

COM — FNG- — CON CON 

- TO OUR ABI— TO DEC IT FRO- 

THR- LET—- AND THE LEN— . 

HOW—-, IN COM PRO THE 

CON IS LES- CON (COM , 

WOR- CAN BE SWA WIT OlA- — 

- THE SEM y. CON IT CON~ 

CON- LES- HEL- IN WE 

- THE tXF— — CF A WOR-. INFAC- 

, AS THI- LET— DEM , Tl-R- 

LET AND A LEN— Cm LET 

EVE- A CAR REA~ OF COM — 

EMS . 

SIN YOU-, 

ART— GOL 

SPE SCO— 



(TRANSLATION) 

Dear Chuckt 

WE CHALLENGE YOU TO CONSIDER 
THE CONTENTS OF THIS CONFUSING 
LETTER. WE CLAIM THAT THE 
CONTEXT OF A WORD IN COMMON 
ENGLISH CONTRIBUTES CONSIDER- 
ABLY TO OUR ABILITY TO DECIPHER 
IT FROM THREE LETTERS AND THE 
LENGTH. 

HOWEVER, IN COMPUTER PRO- 
GRAMS THE CONTEXT IS LESS 
CONFINING (COMMONLY, WORDS CAN 
BE SWAPPED WFTHOUT CHAhKSIhKS THE 
SEMANTIC©. CONSEQLENTLY U 
CONTRraUTES CONSIDERABLY LESS 
HELP IN IDENTTVING THE DEFINITiasi 
OF A WORD. IN FACT, AS THIS LETTER 
DEMONSTRATES, THREE LETTERS AND 
A LENGTH CAN LETDOWN EVEN A 
CARmJL READER OF COMMON 
EMSUSH. 

SINCERELY YOURS, 
ARTHUR GOLDBERG 
SPENCER 500H00 



Your letter and its "translation" certainly 
make the pointl—ed. 



Dear Fig: 

Right now 1 am trying to put together 
a local Danish FIG, and I would therefore 
like you to update me with the names and 
addresses of the Danish FIG members and 
possible make a note in FORTH 
DIMENSIONS about my intentions. 

As the communication lines are rather 
long and since our magazine Is only bi- 
monthly, please Inform me on your next 
deadline as soon as pos^le. 



Niels Oesten 
Brostykkevfh 199 
DK -Z650 Hvidovre 
Denmark 



Thanks Niols. Gfiin'l iut:!: nn osi.:jbliSiiing a 
IoC!j1 Danish FKi Groufj, A.'>ynne inter- 
est L-d. ph;f!if; cciilarr Nieis as listed 
above, ReLj^nJinr) ris^arfiincs: i'.~!3py must 
be in our fiands 6 weeks prir/r to publ- 
ication, i.e., 4/15 is the deadline for 
May/ June edition, etc.~<ed. 



Dear Fig; 

I Just wanted to write to tell you how 
much I enjoy FORTH DIMENSIOMS. Every 
issue itas several things of interest to me, 
and I appreciate your work in seeing that 
it gets done (often a thankless task). Here 
in New Hampshire, Rob Moore of SNAC 
(Suubhcrn New-Mamp^ire Apple Ccrps) is 
doing ,-nost of the work in >:nplems;iti(ig 
and refining a version of fig -FORTH for 
the Apple II. We have takeri ;!s niuoh as 
possibie from paqfr ^eri- so that we can use 
the many suijroijtiri,->:i ^vaiialilc freir. thn 
Applesoft ROM. I have bticn working with 
our version for some time now and am 
doing a high-resolution graphics game 
using FORTH and Applesoft hi-res 
routines. 

Gregg V/iliiai- is 
BYTE Publications 
PO Box 372 
Hancock, NH 03449 



Thanks Gregg. Glad you enjoy and 
appreciate our efforts.—ed. 



Dear Fig; 

Regarding the 8080 Renovatioo Pro- 
ject's requests for hug fixes, ! would like 
to counter with a request that they pro- 
vide a status report In FORTH DIMEN- 
SIONS that includes those bugs already 
reported along with any solutions proposed 
or implemented. It would also be of inter- 
est to find out what the goals are for the 
8080 Renovation Project and how local 
FIG chapters can help. 

There is what I consider a bug in that 
the message routine uses an absolute value 
of screen 4 and 5 for getting error mes- 
sage information. This is fine where offset 
is zero but when an offset other than zero 
is used and the disk has other information 
on absolute sevens 4 and 5, things don't 
look too good, 

Robert I. Demrow 
P. O. Box 158 BluSta 
Andover, MA 01810 

Thanks for the input. Your request has 
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been forwarded to the 8080 Rmovation 
Project people as well as printed here. 

—ad. 



Dear Fig: 

After receiving my installation guide, 1 
spent a week keying in the requisite sev- 
enty-five pages of 65D2 assemblor code. 
Now, 1 am a confirmed figger. i have 
written my own G502 FORTH assembler, a 
small wordprocessor (witfi which t am 
writing this letter), and an APPLE II 
graphics utility resembling LOGO. I like 
FORTK 

Bob Wiseman 

118 St. Andrews Drive 

Cincinnati, OH 45245 

Your last name says it aiU How about 
some articles for FO-publication?~ed. 

Dear Fig: 

I am spreading the FORTH gospel here 
in Taiwan. I have written about 20 lec- 
tures and numerous demonstrations to var- 
ious universities and institutions in this 
area and have generated quite a bit of 
local interest. 

From ground zero, I can now count 
about ID FORTH systems installed al- 
ready. Many of them, from the FIG In- 
stallation Manual and source listing, I 
brought with me. 

An informs! FDRTH discussion ([roup 
has already bi;i;n fortned, and our last 
meeting on October 25th attracted 20 en- 
thusiasts. I am having fun too! 

My homa phone in Taipei is 393-1554. 
If any of you happen to be heading this 
way, be sure to let me know. 

Dr. Chen-hanson Ting 
National Yang Ming Medical 

College 
Taipei, Taiwan, 112 R.O.C. 
(02) 851-2301 

Glad to hear you are doing so well. We all 
miss you here.—ed. 



Dear Fig: 

1 want to extend my rtpolngrf^s fo you, 
your rearif^rs and thf,* [~O^^^Tf i int.f^rest 
Group. I snnt in nr^ anni"tur^o£>n"ierit rd")OUt 
FORTH ROMS fnr Ihe IfiS (ill, MOO I sev- 
eral months ago. Unfortunately, cir- 
cumstances beyond my control now force 
me to revise their avabi lability scrfiedule. 
I win spare everyone further embarrass- 
ment by waiting to send in another an- 
nouncement until I have the first chip set 
in hand. 



Martin Schaaf 
P. O. Box 1001 
Daly City, CA 94017 

Thanks for the update, Martin. This points 
up why we have our policy of not announc- 
ing unreleased products.—ed. 



Dear Fig: 

In the packet of materials I got when I 
joined FIG was a copy of FORTH DIMEN- 
SIONS, Volume III, in with a product re- 
view of Timin-FORTH. The review inter- 
ested me in two respects. One was the 
benchmark tfjsts that it contained; the 
other were the comments on the alleged 
lack of superiority of the Z-BO compared 
to the 8090. 

Those benchmarks gave me a chance to 
compare my machine with my version of 
FORTH— the results of Which surprised me 
since my machine only runs at 2 mhz and 
the machine used in the review runs at 6 
mhz. I expected my machine would take 
three times longer but in all tests, it ran 
comparable or even faster. It would seem 
my implementation is faster for involved 
arithmetic operations. 

The editors of FORTH DIMENSIONS 
are right, I believe, in being wary of 
timing benchmarks for it is easy to draw 
invalid conclusions from them. In fact, 
the editors themselves drew the wrong 
conclusions! 

The tests do not show the Z-80 runs 
benchmark:; slower than the 80R0~the Z- 
flO was used for both tests. The correct 
conclusion is that some FORTH implemen- 
tations are more efficient than others and 
that some versions on the market are ter- 
ribly slow. 

1 am sure you get a flood of letters fol- 
lowing a benchmark; but I just had to 
write to say that the speed of FORTH is 
not necessarily just a function of pro- 
cessor speed as you have often claimed. 

Everett Carter 
l-larvard University 
Division of Applied Sciences 
Cambridge, MA 02138 

Thank you for your v/ell thought out con- 
tribution. — ed. 



Dear Fig: 

A comment ahout your publication 
FOIUH niMFNSIONS. The loforiiiaiion i:. 
cf?i3niiMy useful (especi-jfly tht^ ^.^p- 
plicrH.mns^ linwevFjr. ^■n^l^:h of the mal.f^rial 
assumes a i-ompleti- undf^rstLindinq cf 
FORTH'S innpr workings, i don't really 
understand tiow the compiler works and 
what all those cryptic words (CFA, PFA, 



SMLDGE, IMMEDIATE, etc.) do, but I 
would like to learn. I am sure there are 
others out there like me, so how about 
sopTie tutorial articles on some of these 
FORTM-unlAue features. 

Thomas Kastner 
7913 207th St. SE 
Snohomish, WA 98290 

Entry-level tutorial articles are an area ! 
have been exploring for the past year. 
Check this issue and you will find the first 
in a series of articles contiihuted by 
Henry Laxen of LAXEN AND HARRIS, 
INC., a firm that specializes in FORTH 
instruction. — ed. 



Dear Figs 

I don't doubt FORTH would be more 
use^l If my machine had all of the fea- 
tures described in "An Open RespmHe" 
(Volume II, #6) but consider what I have 
gained without them: 

1. An understanding of how FORTH 
works. 

2. A demonstration that a workable sub- 
set of FORTH can be implemented on 
a very small system. 

5. Hours of enjoyment and appreciation 
of FORTH'S virtues. 

4. A useable language faster and better 
than Tiny Basic and fiiore convenient 
than machine tanguaqfi. 

5. The ability to install and interactively 
test a larger version of FORTH when I 

e>fpand my maf.hine. 

I feel the article docs users of 
small systems a disservice. Instead of 
discouraging users of small systems, 
FIG should encourage development of 
standardized sidisets for use on small 
machines. 

Roger L. Cole 

395 Elm Park Avenue 

Elmhurst, IL 60126 

FORTH f:P[MFNS!nNS publishes articles to 
er^courage coinmunications. thought and 
growth of the FORTH world. Far from 
discouraging users of small systems, the 
FIG leadership is composed almost exclu- 
sively of members with sinafl systems. 
Fin has been a leader in (■nrnuraping the 
rfovi : lopmcnt and use oi' 1 OK fl i on small 
^sy^jt.^^JTKi. In fact, It is probably saff> To say 
that if t.hci'c wt^r(^ no FIG, there would be 
nn rOKTE I. for siiiall users today. Most rjf 
the vendors and systerris now in use have 
been derived froi'n FIG listint^s [irovided at 
cost. The snurc^J d:j[.a for these listings, 
rORML research, standards, i;tc., which 
so many take for granted, have been de- 
rived from the labor and cash contribu- 
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tions of volunteers serving without reim- 
bursement. The FORTH DIMENSIONS 
editorial staff supports FIG efforts to 
keep FORTH intact and resist the temp- 
tation to obtain mere popularity and in the 
process, fail in their mission to provide 
and support the finest software conc^ts 
and tools available today. This has not 
been an easy task (and all too often, a 
thankless one) but it is hoped that if 
others will least try to understand, the 
efforts and ccNitributions of these volun- 
teers will continue to benefit ua all.— ad. 



Dear Fig: 

Conqratulatidns tn a!l i:tit; people who 
prfitiijce rdfiTH niMENSiONS fin its qual- 
ity and improvement. Pl(;n?;(; send me a 
writnf's l<it so 1 rar] ninke surriL' of my ap- 
plications prEisentable fur publication. 

Bob Royce 

Bo>; 57 Michiaiia 

New Buffaio, MI 43117 

Your kit is on the wayJ Anyone else? 

™ed. 



Dear Ficp 

Glen Haydon's nice article In FORTH 
DIMENSIONS ni/2, page 47 talks about an 

alrjorithm he would lil<e to have to 
deti?rminc tiiH Julian day. With the 
backfjround that FORTH has in astronomy, 
I'm sure there must be several, but this is 
the nicest I know. It comes from the U. S. 
Naval Observatory via an articlf? in the 
Astrophysical Journal Supplement Series, 
Vol. 41 No. 3 Nov. 1979 pp 391-2. 

{ JULIAN DATE) 

1 : JD >R SWAP 

2 DUP 9+12/R + 7*4 / MINUS 

3 OVER 9-7/R + 100/ 1+3*4/- 

4 SWAP 275 9 •/ + 

5 + S-> D 1.721029 D+ 

6 367 R> M» D+ ; 



Example; 3 20 1982 JD D. 
2445049 OK 

If you are only concernad with dates 
between 3/1/1900 and 2/28/2000, then you 
can omit line 3 entirely. 

□n another subject, there is another 
correction I noticed in the dump of the 
fig-FQRTH 6502 Assembly Source - at 
location OC32, 80 lA should be D7 06. 

Peter B. Dunckei 

52 Seventh Avenue 

San FranciscOj CA 9411B 

Really slick! But the algorithm would be 
hard to explain to most people.—ed. 



FUNCTIONAL PROGRAMNBNG AMD 

FORTH 

Harvey Glass 
University of South Florida 
College of Engineering 
Department of Computer Sci^tce 
Tampa, FL 33620 

The distinguished computer scientist, 
John Backus, in his 1977 Turing Award 
lecture (1) describes the shortcomings of 
conventional programming languages and 
suggests a new approach to programming 
in a style described as functional pro- 
gramming (FPJ, Wp will summarize the 
faults thrit Hrir-Uur, fjnds in r;oriv;rnti(inii 
languages, brief) / describe tbe fLinct ion;:! 
programming ^tylf, and IsisLly Khnv; Hi.-ii 
FORTH meets the spirit of this style of 
programming. 

Conventional Languages 

An underlying prnhlem of conventional 
programming languages is that they tend 
to be high level descriptions of the Von 
Neumarai computer. The assignment 
statement is the principal construct of 
these languages. A program becomes a 
series of these assignment statements, 
each of which requires the modification of 
a single cell. We may think of the Von 
Neumann computer as a set of storage 
cells, a separate procassor, and a channel 
connecting the two. If assignment state- 
ments imitate the store operation, then 
branch statements imitate jump and test 
while variables imitate storage cells. The 
high level languages provide sophisticated 
constructs to directly model the under- 
lying Von Neumann design. Conventional 
languages in ttip "word at a time" flow 
dcscribRd 'liiov.- ■■i:.:iuire large (fata trans- 
fers through this srnail channel connecting 
main storage and the CPU. Backus calls 
this the Von Neumann iiottleneck. It is 
not merely a physical bottleneck but, 
more importantly, it is a bottleneck to our 
thinking about computer languages. 
Backus refers to it as an "intellectual 
bottleneck." He characterizes conven- 
tional languages as both fat and weak 
since increases in the size and complexity 
of these languages have provided only 
small increases in power. The typical pro- 
gramming language requires a large fixed 
set of constructs, is inflexible, and is not 
extensible. The problem has been eased 
by approaches such as top-down dasigr and 
sb'uctured programming, but these have 
not provided a solution to the underlying 
difficulty. Backus suggests that we need a 
new way of thinking about computing. He 
describes a new style which he calls func- 
tional programming. 

Functional Programming 

This new style of programming has the 
foUovidng characteristics: 

- A function (program) is constructed 
from a set of previously defined 



functiois umng a set of functional 
forms that combine these existing 
functions to form new ones. 

- The most fundamental functional 
form is caUed composition. If the 
composition operator is denoted by 
o, then in Backus^ notation "fog" is 
the function where g is first applied 
and then f. 

- The functions incorporate no data 
and do not name their conventions 

nor substitution rules. 

- A function is hierarchical} i.e., built 
from simpler functions. 

;'5;5:'l'U:i [ifjintM nut tint. "f\^ (F^uncUnnal 
P:'(>ijra rill King) systems ,1:1: so mi ni trial that 
some readers may find it diffirult to view 
them, as programming lanyuaqes." We 
have a set of predefint-d functions in a 
library (dictionary) and may defirie new 
functiiinr; in terms of these predefined 
Functions. 

Functional forms are constructs de- 
noting functions which take functions as 
parameters. For example, the constnjct 
"if -else-then", and the construct "do 
while" are functional forms. As Indicated 
above, compositior> is also a functional 
form. 

FORTH of course has predefined con- 
structs which serve as the functional 
forms of FP systems. In fact, FORTH 
provides facilities for adding new func- 
tiotial forms. An example would be a 
"cnsp" eonstrvjct to provide a more flex- 
ible ;ind rlear decision structure than that 
of a set of nested "if-eise-then"'s. The 
capability of language to add new func- 
tional forms is not inherent in FP 
systems. Backus defines a language with 
this capability as a formal functional pro- 
gramming (FFP) language. 



An E>; ample of Functional Programming! 
The Factorial Function 

An example of a program written in 
the style of functional programming is as 
follows; 

def :i = egO + li ♦ a [Id , U subl], where 
the notation o, s , and [ ] denote func- 
tional forms. As we have seen, o denotes 
composition. The notation Tfj^.f^] denotes 
construction where Uii^2 ^ ^Pl^i^^ to an 
argument x yields the seguence <f-|(x),- 
f,(5()> . The notation p "ftg applied to an 
argument \ indicates that fie value p('() is 
to be examined and if p(x) is true the ex- 
pression yields f{x) else It yields g<x). 

Other definitions used in the above 
are: 

eqD applied ■.□ x yields a value true if x 
is 0, and yields false otherwise. 

1 is the literal value 1 and yields the 
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value If regardless of the argument. 

* is the multiplication operator, and 
applied to a sequence <x,y> yields )c*y. 

id is the identity operator, id applied 
to X yieids x. 

subl applied to an argument x yields x- 
1, 

Following the logic of ttw ei>ove f unc- 
tion we see that !! applied to an argument 
n yields 1 if n Is zero. If n is not zero we 
generate n*{rHl)S 

Clearly then for this is a definition 
of the factorial function, [n FORTH (if 
the language were recursive) we wouid 
write; 

; " 

DUP 0= IF 1+ 

ELSE DUP 1 - !! » 
THEN ; 

The syntaxes of the two examples are 
different. The composition rule is applied 
right to left in the first example and left 
to right in FORTH. The rules far dropping 
arguments are different. Construction is 
not used in FORTH.* That the rules of 
syntax are different should not he sur- 
prising. The operations were defined by 
different people at different times. What 
is most important is that on close exami- 
nation it is apparent ti>at the style is es- 
aentlally the same. We have "words" 
which denote funcUons which are eval- 
uated following very similar rules. 



FORTH as a Langgacie with Charac- 
teristics of Fuictionai Programming 

Consider the FORTH (outer) inter- 
preter. Literally all that the interpreter 
recognizes are functionsj nr to be precise, 
words that denote functions.** The fund- 
amental combining form is composition 
where in FORTH "fog" would be expressed 
as g f. Functions need not incorporate 
data, do not name their arguments, and 
require no siibstitutinn riil(;3 for parameter 
pasF;ing. Thor'; are nn .'i^siqnrnent stato- 
ments .ind a now function is built from 
simpler previously defined functions. It is 
this style of prograintninq in FORTH— so 
diff<Tent than that of conventional lanci- 
uar|es--th;it provides a power ar>d flex- 
ibility Uiat lias sparked the enthusiasm of 
so many of us. 



Summary 

This very short summary of ttie article 
by Oohn Backus does not begin to do 
justice to either the scope or depth of the 
paper. 

The "new" type of programming has 
generated considerable interest within the 
computing community EWid most particu- 



larly among those interested in innovative 
approaches to computer architectures. It 
is this author's contention that FORTH is 
a functional programming language whidl 
closely resembles the approach suggested 
by John Sackus in his definitive paper. It 
will be interesting to see if, as a result of 
this paper, languages v^hich have attri- 
butes simitar to FORTH begin to appear In 
academic circlea. 



* The author has recently implemented 
auch an operator in FORTH. 

*» The way that literals are fiandled can 
be viewed as merely a question of Im- 
plementation and efficiency. 
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ITMITH AM> ARTfflCIAL UNQUISTICS 

Raymond Weisling 
Surakarta, Jaw a Tengah 
Republik Indonesia 

Tliere has not been much said about 
the linguistic nature of computer 
languages, principally because so few of 
them permit the development of syntax 
structures that apporach human language, 
and hence faster linguistic obsorvatiwi. 
FORTH and its otlier tlTreaded-coda rela- 
tives allow tw such structures to be 
developed, prifKipally because of the 
larger body of words that arise from its 
extensibility and hierarchal function of 
operators. 

The point I wish to address here is the 
syntactical limitations of the language we 
are building, an artificial language based 
in part on a human language (English) that 
is widely used wherever technology has 
developed. But there is a fundamental 
weakness in this English which I thini< 
iTiiist be aware of, since it runs counter to 
thiM jhilosophy of FORTH. This is the syn- 
tax-sensitivity of worti forrns, especially 
nouns and verbs, which in Lnylish are 
oommonly spelled and pronounced exactly 
the same. We rely on the structure (word- 
order, partly) to distinguish these often 
unrelated words. 

A few examples are in order. Consider 
the possible function of these FORTH 
words, both with respect to their current 
use (some are nouns while others are 
verbs), but also in Wieir opposite hypothet- 
ical use: BUFFER , FENCE , KEY , 
LIMIT , LOOP , SPACE , TYPE , etc. 
Others which a programmer might wish to 
use in developing applications might 
include! OFFSET , SPAN , INSERT , 



FILE .CATALOG , OUTPUT , Since the 
action of Vneae wcntls is not known from 
the word itself, but only from either pre- 
vious agreement or syntax, and ^nce syn- 
tax sensitivity is not a common part of 
FORTH (i.e., where a syntacticsil form 
doea not alter the way in which a word is 
compiledO, some degree of confusion can 
result. 

Furthermore, use of a word in only one 
form rules out its use in another form, ex- 
cept where it can reside in a different vo- 
cabulary. Thus words like KEY , LOOP , 
BLANK , and TYPE fssil FORTH verbs) 
cannot function as nc.nns despite our 
temptation to use them that way for their 
inherent (English language-based) clarity. 
The same is true of soma of the FORTH 
nouns like BLOCK , SUFFER , STATE , 
LIMIT , and BASE . 

Thus it Is not possible to know the 
nature of the word from its name atone. 
Would prefixes far verbs unnecessarily 
clutter the language? Would some prefix 
or suffix to differentiate constants from 
variables be useful? Or should we ioave it 
alone. The TO and FROM words help clar- 
ify things but are not without problems, 
whereas ! and ;3 are perfectly uniform in 
function. Could a FORTH-like language 
be built that allows the word-type to be- 
come part of the header, with the com- 
piler choosing which form of the same- 
named v^ord to use based on its syntactical 
position, lil<e nouns (variishies, constants, 
arrays) being objects of TO and FROM ? 
Or does this push us back into the horrible 
mess of artificial syntax forms such as 
algebraic notation (something we are per- 
haps proud to have departed from)? 

I offer no solution per se. I only wish 
to point out a weal<ness that we all should 
be sendttve to when we a^ign names to 
our words. Since FORTH is stilt in evo- 
lution, this is yet another aspect to con- 
sider when standards are defined. I wish 
to disclaim any implication tfiat I am a 
linguist of any sort other than Armchair 
Linguist. My sensitivity to this is a result 
of living in a different culture where I am 
learning a human language that permits 
far greater fluidity of structure due to the 
inherent differences in nouns and verbs, 
shown by a well codified system of pre- 
fixes and suffixes (morphemological tiif- 
ferentiators). Those here who learn 
fCnqlish struqcjie with the structural dif- 
fi?ri?n (.!>!}. ion of the pr.irts of speech 
v/hiir our morphf^prie differentiator;! are 
useii for r'-Hai.ively useless things like verb 
COrijugiWifin, plurality, rases, nnd tenses 
(v/hich ;irf^ a I! cssentitiliy ah;;!;rit in this 
pijrt of the world). As technriloijy spreods, 
an artificial Inritjuag-J for man-machine 
manipulation (a two way street) should be 
rnort! universally based, at least with re- 
spect to linguistic modeling. As FORTH is 
already in us(? in many parts of the world, 
tlie channel for feedback is already open. 
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FORTH STA^40ARPS COR[«R 

RobRrt I.. Smith 

More Words on WORD 

In my last column, I discussed WORD. 
1 neglected to mention an important topic 
relating to the implementations of WORD 
which may influence transportability. 
Prior to INb T^J-Standard, ths: exRt;iition of 
WORIO claused the strinq from the input 
medium to bu mov^d to the dictionary 
area, starting at [H1-:re witfi the character 
count. Some iniplomenters would he 
tempted to define the 7?)-St,!n(faEd WORD 
from the older WORD in a manner some- 
what like this: 

:WORD WORD HERE; 

Other implem enters would probably put 
the string elsewhere. Now suppose that 
the user wished to reverse the character 
string and emplace the mtjdified string in 
the dictionary. The result from the for- 
mer implementer's system will not be as 
expected, and wilt noit result in "equiva- 
lent execution" on the later implementer's 
system. A similar but much less serious 
problem occurs with PAD. PAD is 
conventionally offset from HERE by a 
fixed amount (fiS bytes in fig-FORTH). 
There ere at least three different solu- 
tions: 

(1) Implementations which place the 
string at HERE could be con- 
sidered non-standard, and the 
problem goes away. 

(2) A clarification could be added to 
the Standard indicatincj either Chat 
the string will always be at HERE) 
or that it may be at HERE. 

0) The problem could be forced upon 
users by requiring that the char- 
acters from WORD be stored in a 
user-defined area prior to their 
movement to the final destination. 

Let Me Number the Ways 

in meny arees the 79-StandBrd defines 
limits snd formats in painful detail. There 
is an important area in w^iich very little is 
seic^ namely the format for single and 
double precision numbers in the input 
stream. In the section "interpreter, text" 
It is clear that "numbers" are allowed In 
the input text stream and may either be 
compiled or placed on the parameter 
stack. A definition of the format of a 
number should include at a minimum the 
distinction between double and single pre- 
cision, the sign of the number, and the set 
of allowed characters from which the 
number is constructed. In l<eeping with 
the spirit of the rest of the Standard, I 
would like to propose a few definitions 
which should be fairly easy to implement 
and which appear to be compatible with 
most current implementations (including 



fig-FORTH). First, we define a digit: 
digit 

A digit is any nne of a set of ASCII 
characters which represent numeric values 
in the range from to ba;ie-I. Eor bases 
greater than decifiial LO, the set of char- 
acters is ... 9 A 1^ ... where the as- 
cending ASCII sequence is used for A and 
above. 

Ne>tt, wf; add to the original definition of 
number as follows: 



number 

A number is represented In the Input 
stream as a word composed of a sequence 
of one or more digits with a leading ASCII 
minus (-) if the number is negative and a 
trailing ASCII dot (.) if the value is to be 
conddered double precision. 

I reoommend thet implementers allow 
the above format, and that authors of 
transportable programs adhere to the 
same format. In any case, when the Stan- 
dards Team meets again, they should cer- 
tainly clarify this area. 

Under the Spreading FIG-TREE 

As many of you are aware, tliere is a 
Computer Conference Tree (now nick- 
named the FIG-TREE) which contains 
items of interest to the FORTH com- 
munity. ! would like to encourage all 
p!;[-sons inl.ei'e.styd in the 79-Standard to 
read and contribute to the branch of the 
F1G-T[^EE called 7 ^ -STANDARD. All you 
need is a terminal (110 or 300 baud), a 
modem, and a telephone. The number is 
(4.15) 5^3-3580, See back issues of FORTH 
DIMENSIONS for further information, or 
just call up and send a few carriage 
returns until the system responds. 



CORRECTIONS 
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Change: FDIIIA, pg. 118, para 3 to: 

The TO concept was developed by 
Dr. Paul BarCholdi as an alternative 
to constants and variables. 



EDITOR'S NOTE: 

Peter Bengtson of DATATRONIC AB in 
Stockholm, Sweden sent us a copy of the 
September, 19B1 edition of Electronics 
And Computing Monthly , Feature article 
was FORTH, "The Language of the Eight- 
ies" in which FIG is mentioned prominent- 
ly. More confirmation we are all riding 
the crestl 
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TEOtgOTES, BUGS AND RXES 

I havs three questions about FORTHt 

Q. I know Of two CP/M FORTI-b that have 

their own way of dealing with the BIOS 
and BDOS and as a result cannot read each 
other's icreens. What Prn leading to is 
Vnisi CP/M and fig-FORTH are both sup- 
posed to be machine independent systenns 
but cannot read each other's source code 
files. CP/M figgers ought to get together 
on this one. 

A. Differences between disk organizations 
are sector skewing and iocation. It is easy 
to add definitions to a FORTH which uses 
BIOS so it can read other organ 12 atiorsj It 
is not possible the other direction. 



2. When seiectinq a new drive, you need 
to do a COl-D start or you'll remain on the 
last drive—this is only true if you are 
accessing the same screen number. If you 
leave an empty line between two defini- 
tions on the scr«8n, a LOAD will stop 
loading at the empty line. Are these 
FORTH conventiore I haven't heard about 
yet or are they peculiar to my Tlmln 
FORTH? 

A. Both of then are bugs— demand fixes 
from Tlmln. 



3, Somehow^?), I've been leaving a lot of 
control characters behind when using the 
editor. They don't show up on a screen list 
but they sure ruin any attempt at loading 
the screen. I :-iiTi not sure if this is a 
common problem hut I have enclosed a 
sho!-t rmjtine to replaces control charaters 
with spaces for anyone else who has this 
problem. 

SCREEN: 95 

( HUNT FOR CONTROL CHARACTERS) 
; HUNT ( SCREEN # — ) 
BLOCK 

1024 DO DUP C@ DUP 32 < 
IF CR ."t" 64 + EMIT 
P I" DUP U. ELSE DROP 
ENDIF 1+ LOOP DROP j 
: FIXSCREEN ( SCREEN » — ) 
BLOCK 

1024 DO DUP C® 32 < F 
DUP 32 SWAP c; ENDIF 

1+ LOOP DROP : 
( ACTUALLY HUNT AND FIXSrKflEN 

ARE OUiTE SIMIL AR, HUNT .ILJST 
SHOWS UP ANY (^till.TY CHARACTERS 

ANIi FlXSCRFf N KFPLACES THEM) 

A. Don't krirjw. Ivinv he- ;in rrlitor buq or 
the w.iy ynii arf ii'viru] it. If you add ;i linr 
with HP foil owed ipnmcrli.'itcly hy a car- 
riage return in (.he fiQ editor, a null is 
introduced into the line which stops com- 
piling, {editor fix should be supplied) 



THAT MVSTERKXiS fig-FORTH 
AMTESIA 

Many fig-FORTH users have pr^ably 

noticed tfia curious phartomenon I refer to 

as "amnesia" In their computers, and those 
who understand the method of the fig- 
FORTH dictionary search, no doubt under- 
stand it as well. It is an amusing, often 
perplexing, but usually useful property 
peculiar to fig-FORTH dictionaries. 

Because names in fig-FORTH may 
have variable length, the distance between 
the start of the name and the link to the 
next name in the dictionary is also vari- 
able. Because the width (number of char- 
acters saved) is aiso ailovjed to be iess 
than the actuai number of characters in 
the name, one cannot reiy on the count to 
provide the address of the link-field, given 
the address of the name- fie Id. This is why 
the fig-FORTH compiler automatically 
sets the most significant bit of the first 
character and the last character in every 
name. By this device, one can scan a 
name forward or backward by looking for 
this bit. 

In a dictionary search, the address in 
the link-fieM is fottowed to the beginning 
of the name- field of the previous word. If 
it is not a match to the key you are look- 
ing for, vife scan foxwarct in memory until 
the most significant bit tells us we have 
found the link-field to the next word. 
V/hen a dictionary link is "broken" by clob- 
bering RAM, an erroneous address is fol- 
lowed, and the system is said to "crash". 

However, in fig-FORTH, the system 
does nnt always "die". In many cases, it is 
merely "wounded", displaying a strange 
kind of amnesia in which it has no recol- 
lection of recent definitifins, hut remem- 
bers with clarity its "childhood". What 
happens is this: the broken link sends the 
dictionary search off to a totally random 
part of memory (if you do not have 6iK, it 
may address RAM where there are no 
boards^. Since it is not likely to find a 
match at this address, it scans forward for 
the most significant bit that marks the 
end of the "name". The odds are that it 
will eventually find one, mistake the next 
two bytes for a link, and follow another 
wild address somewhere else. 

Now, d^ending an how much of your 
memory is filled with dictionary, and de- 
pending on whJit is in your unused RAM, 
the odds are nnt had that after bouncing 
aimlessly around for awhile, the search 
may land in the middle of a valid name. 
One does nnt exp^^ct a match to compare 
with the middle of n name, but the search 
Itien si:ans f ir the most significant bit, 
finds valid link, and qi:ls back into the 
dictionary. Whaf the "amnesia" has ac- 
tually for'jott^^n, then, is everything be- 
tween the broken link and the point where 
the search re-enters the dictionary. 



If your used RAM Is large in compar- 
laon to FORTH, yuu are likely to find moat 
of FORTH still available as a kind of crip- 
pled monitor to help you find out what 
went wrong without re-bootlng the ay stem 
(which destroys the damage). Further- 
more, since you now know the cause of 
this illness, you can exploit it to your ad- 
vantage. Simply modify your boot-up 
RAM-check routine so that it leaves a 
pattern in your unused RAM, such that no 
matter how it is viewed, it will appear to 
be an address somewhere in the middle of 
a name-field, somewhere near the top of 
your basic FORTH and utilities. You will 
now find, to your delight, that when you 
"crash", you usually have your most 
powerful toots still at your disposal. 

Users of FORTH, Inc. Micro-FORTH 
are not iikeiy to observe this phenomenon. 
Because names are always exactly four 
characters long, the link field does not 
have to be scanned for; instead, it is found 
by simple arithmetic, in order to re-enter 
the dictionary, one must land by chance on 
the exact beginning of a name-field. 
Much more likely than this, is that the 
search will enter a loop in which it goes 
again to an address it has already visited, 
and get caught forever. Remember that 
the addresses found are by no means ran* 
dom. Ail you have to do is cover tlie most 
common ones. 

Steve Munson 

8071 E. 7th Street, #14 

Buena Park, CA 90621 



TRANSIENT DEFWrnONS 

These utiliitea allow you to have tem- 
porary definition (such as compiler 
words! CASE, OF ENDOF, ENDCASE, 
G01D0, etc.) in the dictionary during 
compilation and then remove them after 
compilation. The word TRANSIENT 
moves tlie dictionery pointer to the 
"transient area" which must be above the 
end of the current dictionary. The tem- 
porary definitions are then compiled into 
this area. Next, the word f'LRMANrNT 
restores the dictionary to its normal 
location. Now the application program is 
compiled and the temporary definitions 
are removed with the word DISPOSE. 
DISPOSE will take a few seconds because 
it goes through evory link (including vo- 
cabulary links) and patches them to bypass 
all words above the dictionary pointer. 

NOTE; These word.^ [jrr* wrif.l.cFi in 
MicroMotinn's FORT! (-7^ but some 
non-79-5tanLlfu"il woj^ds nn; Ljy[^d. The 
non-Standard words have the fig- 
FORTH definitions. 

Philip Wesson 
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MORE WORDS ABOUT WORD 

Robert O. Villwock 
Microsystems, Inc. 

In analyzing or proporing changes to 
any Standard definition, it is very impor- 
tant to concentrate on thf? def jiiis of the 
nenclud function and to ovi^iifi ,i!iy precon- 
ceived notinn of internal implementation 
details, unless, of course, ttie two are in~ 
separable, tf this is not done, we can 
severely and uiinei;cssarily constrain 
futur« impJementors from rioing tlieir best 
piMsible job, or, v/orsc yd, find them a- 
voiding the Standard sntirely, 

A good case in point is the word 
WORD. Sin;re most FORTI-I impiementors 
have favored using the "free space'' above 
the dictionary to store tokens extracted 
by VJORD, /Hid further -jinsR their exper- 
ienne seEms to ha f?[;nti;rRd ;jround small 
to medium sized application programs, it 
is tacitly jisaufrieL' thai this frt^c iipacc is 
arbitrarily ^arge. In addition to storing 
tokens at HERE, PAD is usually also de- 
fined to float above the dictionary in this 
"unbounded" free space. Therefore, 
whether WORD handles tokrara of length 
12Q, 256 or even 1024 bytes is innocently 
discussed with the idea that tt>e only issue 
involved ia the length descriptor preceding 
the string! 

However, whether this token buffer 
and PAD float above HERE or are fixed 
location buffers ot some different srfieme 
is devised, they consume real memory and 
are not really "free sp'ice". To illustrate, 
suppose we assume the traditional imple- 
mentation fr)r a moment and use HERE as 
the start of the token buffer used by 
WORD. The PAD is then usually floated 
at a location egual to HrRT plus some 
constant. If WORD must handle tokens as 
long as 255 bytes, then PAH must be 
floated at least 256 bytes ahove HErif-! to 
prevent token extraction from corrupting 
the contents of PAD. The 79-STANDARD 
requires that PAD be able to hold at least 
□4 bytes, so now we're at HERE + 320 
by tes. 

If one is compiling a large application 
program, the dictionary will grow until 
eventually HERE + 320 hits the peg 
(whether it is a fixed boundary or the 
PSTACK bottom or vifliatevBr). When it 
does, no more compilation can take place 
(even though there is at least 320 bytes of 
unused dictionary left) without violating 
the Standard. If you permit further com- 
pilation, the size of PAD begins to drop 
below the minimum 64, which is not al- 
lowed. Even if you start autoniatically 
reducing the PAD offset so that it remains 
fixed in size, the token buffer begins 
shrinking and can no longer satisfy the 256 
byte string requirement. 

I'm trying to illustrate that "free 
space" ia only "free" as long as all of 



memory isn't needed. When memory fills, 
these "free space" buffers prevent code 
from being compiled into their ^ace. The 
floating buffer concept seems to obscure 
this fact more than if the tolcen buffer and 
the PAD were given fixed, dedicated areas 
of memory, 

if the token buff it :ruist handle 1024 
byte strings, the situation is even worse. 
We then have to stop compiling when the 
dictionary has over IK bytes of space 
left; Since most of the time the tokens 
extracted by WORD arc very short Ol 
characters or less), we pay a dear price to 
be a hi.-; to handle the occasional long 
string, given that WORD must handle it, 
and WORD is defined as at presRnt. 

If you discartl tiie ntition that a more 
or less unbounded "free spacn" exists 
somewhere in memory, the approach to 
WORD'S definition takes on a new facet. 
At Microsystems, we have developed 
several large applications using FORTH, 
which resulted in tarijct compiled code in 
the range of rsZK to 48K byf.ns, exclusive 
of the dictionary headers and the FORTH 
operating sysem software. When af^li- 
cations become that large, there isn't even 
room to hold all the names in memory at 
one time (even if constrained to 3 char- 
acters and length), let alone room to bum 
for large "free ^ace" buffersl Our im- 
plementetioru which is called 
proFORTH"^, handles this problem by 
means of multiple dictionaries and 
ROM/RAM segment control with selective 
symbol purging. Names are classified as 
to their needed lifetimes during com- 
pilation. When the names are no longer 
needed, they are purged and their memory 
space is reclaimed. This allows much of 
the memory devoted to dictionary headers 
to be reused many times during com- 
pilation, thereby enabling very large ap- 
plications to be compiled. 

The foregoing is not a commercial for 
proFORTH, but rather is intended to illus- 
trate that the scope of usage to which 
FOr-^TH can b« applied is very broad. In a 
situation where you have multiple diction- 
aries and are fighting for every byte of 
memory available, thinking in terms of 
storing mbounded tokens at HERE and 
floating PADs of arbitrary length becomes 
very incongruous. Admittedly, I've des- 
crttied a somewhat extreme situation, but 
it la not as rare as you may Uiink. Micro- 
processor applications are getting more 
ambitious every day and sooner or later 
you will have a crowded memory 
condition. ! think FORTH should be able 
to handle these situations gracefully, 
without having to deviate from ttie 
Standard. 

When defining WORD, then, one ob- 
jective should be to enable users to 
extract arbitrarily long tokens from the 
text stream but not force the im piemen tor 
to provide an arbitrarily long memory 



buffer to accomplish it. While this may 
sound a little like trying to "have your 
cake and eat it too", a rather simple 
factoring of WC^D can easily accomplish 
it. To illustrate my point, suppose we 
devise a more basic WORD called (WORD) 
and define it as follows: 

1 (LvuRti) ( — a a i BLj; S Trn!P 
IK ni.n':i\ 
fl:-;£ TIB 'e! 

th™ >iw 9 + SWAP eNCiiOSh 

>IK fl OVKR - -HO'I' + SWAP I 

where INCLOSE is defined as in the FIG 
glossary and -ROT is equivalent to ROT 
ROT. 

This new ■'WORD') extracts thp next 
token from thn t(=xt stream, delimited by 
r, and leaves it:; fiddr'^s;; ar^id length on the 
stack. Actually, the token is merely left 
in the input buf I'er (keyboar't! or disk) and a 
pointer to it is given. Thus, no additional 
or temporary buffer is needed. The user 
may now do anything he (she) wants with 
the string, including moving It to HERE if 
de^red (and if it will fit). 

For example, if you want to compile 
the to!<en as a "dot-quote" string, a defini- 
tion such 8S WORD, can be used. 

I WORD. ) 

(WORD) IlEEE OVEU 1+ ALt.OT Si>Af QVKli Ci 
COUNT CMOVE ( 

If you want a blank-filled line put in 
PAD, the following could be used; 

: TEXl ( c — ) PAIJ C/L 2* mji-KKS 

IKOKD) C/L MIS PAD CI PAD 

couhtr ctiovF. p 

For the routine compiler/interpreter 
job of extractinf) small (31 characters or 
less) tokens from the text stream, the fol- 
lowing could be used: 

; -MUD ( <;■ — a ) 

li-OKD) WDSK VilK KBl-R CI WRFK COUNT 1 + 
CMOVE WBFH ! 

Where WBFR is a "small" word buffer 
limited to WDSZ + 2. Note that except 
possibly for the self-imposed size limi- 
tation*, the last definition satisfies the 
79-STANDABD definition of WORD. 

If you will carefully examine these 
constructs, you can quickly dis^uvt;" t'^at 
given (WORD) as the elementary fonn. the 
user can extract tokens of any size, put 
them wherever he wants, and format them 
with or without the trailing delimiter, or 
for that matter, the leading count byte for 
IS bit word if you prefer;. In other words, 
the user ought to be able to do essentially 
anything that he may desire, hut, the im- 
plementor need not provide any special, 
temporary buffers or arbitrary size Just to 
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satisfy the Standard. 

Using (WORD) aa the fundamental 
token ax tractor allows implsmentors to 
compile dot quote otrlnga, for example, 
without the need for any tr^titional buf- 
isn (see WORD,). On the other hand, if 
dot quote strings are acquired by the' 
present form of WORD in the Standard, 
then the token buffer must be at least as 
large as the longest dot quote string, 
which is presently specified to be 127 
characters. 

One might argue that if the buffer is 
at HL'KSl, there is no penalty since that is 
where the string must go anyway, and if it 
won't fit it can't be compiled. However, 
this line of reasoning ia again limited by a 
parochial view that all FORTH implemen- 
tations must he aiike. If a system like 
proFORTH is being used, the target defin- 
ition body can optionaily be compiled "in 
place" separate from the dictionary 
header. There may be room for the string 
in the target segment of memory but not 
enough in the dictionary. 

In conclusion, let me say that If there 
is sufficient memory, the user may 
declare all the buffets be wants, but we 
^uld not require that these buffers be 
preallocated by the Implementor in order 
to satisfy the Standard. Therefore, I sub- 
mit that my defmitaott of (WORD) ia a 
more fundarnentally valuable function 
than WORD (as currently defined in the 
79-STANDARD,) from which all others 
can be built without burning sometimes 
precious memory space. There are al- 
ready enough buffers and such required 
(directly or indirectly) by the Standard. 
Let's not arbitrarily insist on more by ac- 
cidently defining words in such a way as to 
force an implementor to provide them. 

* I emphasise "possibly" because fortun- 
ately the Standard is not explicit as to the 
length of tolcsns that must be handled by 
WORD. 



CORRECTION TO FEDIT 

Sorry you had trouble with FEDIT. The 
listing was retyped at FIG end several 

typos creeped in. They are: 

1. SCR 64 Line JO: compile should be 

coMPU.r 

Z. SCR 65 Line 23: 1+/M0D shoulrl he I t 
16 /Mon 

3. SCf( f,7 Line 4fi: B/RUn shoulrt be 
B/BUF 

4. SCR 67 Line 49: :e should be : .E 

5. SCR 67 Line 50t + ALIN should be 
+AL1N 

You are perfectly right that source 
text should be loadable. I talked to some 



of the people at RG about this and they 
were acutely aware of the problem but 
they are simply not set up to directly 
reproduce listings Into FD at the present 
time. Ttieiy do the beet job they can with 
the resources available to them, and they 
work dam hard at it. I can't fault them. 

REPL is a pseudonym for the Fig- 
FORTH line editor definition, R . I used 
the pseudonym because FEDIT was the 
first program I wrote in FORTH and I 
really wasn't familiar enough with Vocab- 
ularies to comfortably use a word that was 
already used in the FORTH vocabulary. 

Let me know how it works for you. If 
you would lit<e a machine produced listing, 
1 could run one for you from my current 
version. 

Edgar H. Fey, Jr. 
18 Calendar Court 
La Grange, VL 60525 



A l-ELPf=TJL UTILITY 



Here's a short FORTH word of great 
utility that I use heavily in my screens. I 
hope you like it. Its name is CVD, which 
stands for "convert to decimal". 

DECIMAL 
: CVD 

BASE lal SWAP 

OVER /MOD 

ROT /MOD 

10 » + 

10* + 



I like to work in hexldecimal, but often 
make mistEtkes when usAng the words 
LOAD, UST, and many of the FORTH 
screen editor words because I'm thinking 
in decimal wrfian the system's in hex. If I 
do the following: 

: LIST CVD LIST ; 

then 130 LIST lists screen 130 whether I'm 
in decimal or hex. It also works for any 
other base, as long as that base accepts 
the nun^er. 

As to how iL worl<s, a little work will 
show that CVD splits a three-digit number 
into It?, respective dic]its (IF, 130 becomes 
1, 3, and n) and reassembles the digits into 
the numbt^r that is, in riccimal, the same 
as the keys presserl by the user. 

Gregg Williams 
BYTE Publications 
PO Sox 372 
Hancock, NH 03M9 



CALL FDR PAPERS 

1982 Rochester FORTH Conference 
on 

Data Bases and Process Control 

May 17 through May 21, 1982 

Uhiverwty of Rochester 
Rochester, New York 

The second annual Rochester FORTH 
Confer wice vrill i>e Iwld in May, and vifill 
be hosted by the University of Rochester's 
Laboratory for Laser Energetics. This 
year's topics complement and extend the 
work described at the 1981 FORML Con- 
ference and the previous Rochester Con- 
ference. We believe that the areas of 
data bases and process control can be 
uniquely dealt with using FORTH. 

There is a call for papers on tiie fol- 
lowing topics: 

1. Data Bases, Including, but not lim- 
ited to: hierarchical, network and 
relational models; scientific use; 
process control; and commercial 
systems. 

2. Process Control, including, but not 
limited to; multitasking, m eta- 
compilation, data acquisition and 
real time systems; video games. 

3. Related concepts of; 
implementation, speed/space 
tradeoffs; user Interactions; de- 
signer tool^ and graphics. 

Papers will be handled in either oral 
sessions or poster sessions, although oral 
papers will be refereed in accordance with 
conference direction, paper quality and 
topic. Please submit a 200 word abstract 
by March 15, 1982. The oral papers dead- 
line is April 1^, 1982, and the poster 
papers deadline is May 1, 1902. Send ab- 
stracts and papers to the conforenni; 
ctiainnari, Lawrence Forslcy, by those 
dates, ['lease keep papers to ;> maximum 
□f lil printed' paqcis. If Ibis restriction 
causes a serious problem, contact us. 

For more information, please contact 
the conference chairman at: 

Lawrence P. Forsley 
Laboratory for Laser Energetics 
University of Rochester 
250 East River Road 
Rochester, New York 14623 
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A FORTH ASSCMBLO^ 
FOR 1>E 6502 

by William F. Ragsdaie 

nMTRODUCTION 

This article should further polarize the 
attitudes of those outside the growing 
community of FORTH users. Some will be 
fascinated by a labei-less, macro- 
assembler whosn sriurLn; code is on!y 96 
lines long! Others will be repelled by 
reverse Polish syntax and the absence of 
labels. 

The author immodestly claims that this 
is the best FORTH assembler raver distri- 
buted. It is the ori!y such assennbler that 
detects all errors in op -node generation 
and conditional structuring. It is released 
to the public domain as a defense mechan- 
ism. Three good 6502 assemblers were 
submitted ta the FORTH Interest Group 
but each had some lack. Rather than 
merge and edit for publication, [ chose to 
publish mine with all the submitted fea- 
tures plus several more. 

Imagine having an assembler in 1300 
bytes of object code with; 

1. User macros (like IF, UNTIL,) de- 
finable at any time. 

2. Literal values expressed in any 
numeric base, alterable at any 

time. 

3. Expressions using any resident 
computation capability. 

4. Nested control structures without 
labels, with error control, 

3. Assembler source itself in a port- 
able high level language. 

OVERVIEW 

Forth is provided with a machine lang- 
uage assembler to create execution pro- 
cedures that would be time Inefficient, if 
written as colon-definitions. It is intended 
that "code" be written similarly to hig(i 
level, for clarity of expression. Functions 
may be written first in high-level, tested, 
end then re-coded Into asserr^Iy, with a 
minimum of restructuring. 

n-E ASSEMBLY PROCESS 

Code assembly just consists of inter- 
preting with the ASSEMBLER vocabulary 
as CONTEXT. Thus, each word in the in- 
put stream will be matched according the 
Forth practice of searching CONTEXT 
first then CURRENT. 



ASSEMBLER (now COIMTEXT) 
FORTH (chained to ASSEMBLER) 
user's (CURRENT If one exits) 

FORTH (chained to user's vocab) 
try for literal number 
else, do error abort 

The above sequence is the usual action 
of Perth's text interpreter, which reniains 
in control during assembly. 

During assembly uf CODE definitions. 
Forth continut;;; interpretation of each 
word encountered in the input stream (not 
in the compile mode). These assembler 
words specify operands, address modes, 
and op-codes. At the conclijsioe of tlie 
CODE definition a final error check veri- 
fies correct completion by "unsmudging'^ 
the definition's name, to make It available 
for dictionary searches. 

RUN-TIME, ASSEMBLY-TIME 

One must be careful to understand at 
what time a particular word definition 
executes. During assembly, each as- 
sembler word interpreted executes. Its 
function at that instant is called 'assemb- 
ling' or 'assembly- time'. This function 
may involve op-code generation, address 
calculation, mode selection, etc. 

The later execution of the generated 
code is called "run-time'. This distinction 
is particulary important with the condi- 
tionals. At assembly time each such word 
(i.e., IF, UNTIL, BEGIN, etc.! itself 'runs' 
to produce machine code which will later 
execute at what is labeled 'run-time' when 
its named code definition Is used, 

AN EXAMPLE 

As a practical example, here's a simple 
call to the system monitor, via the NMI 
address vector (using the BRK opcode). 

CODE MON ( exit to monitor ) 

BRK, NEXT JMP, END-CODE 

The word CODJr is first encountttred, 
and executed by Forth. CODE builds the 
following name "MON" into a dictionary 
header and calls ASSEMBLER as the 
CONTEXT vocabularly. 

The "{" is next found in FORTH and 
executed to skip til ")"• This method skips 
over comments. Note that the name after 
CODE and the ")" after "(" must be on the 

same tevt line. 

OP-COUES 

BRK, is next found in the assembler as 
the op-code. When BRK, executes, it as- 
sembles the byte value 00 into the dic- 
tionary as the op-code for "break to moni- 
tor via "NMI", 

Many assembler words names end in 
The si^ificance of this is; 



1. The comma shows the conclusion 
of a logical grouping that would be 
om line of classical assembly 
source code. 

2. compiles into the dictionary; 
thus a comma implies the point at 

which code is generated. 

3. The "," distinguishes op-codes 
from possible hex numbers ADC 
and ADD. 

NEXT 

Forth e>;ecutes your word definitions 
under confrol of the a<J(Jress interpreter, 
named NEXT, This short eofl[; routine 
moves execution from one tiefinitiun, to 
the next. At tfie end of your code defini- 
tion, you must return control to NEXT or 
else to code which returns to NEXT. 

RETURN OF CONTROL 

Most 6502 systems can resume execu- 
tion after a break, mnce the monitor saves 
the CPU register contents. Therefore, we 
must return control to Forth after a 
return from the monitor. NEXT is a con- 
stant that specifies the machine address 
of Forth's address Interpreter (say 
$0242). Here it is the operand for JMP,. 
As JMP, executes, it assembles a machine 
code jump to the address of NEXT from 
the assembly time stack velue. 

SECURITY 

Numerous tests are made within the 

assembler for user errors: 

1. All parameters used in CODE 
definitions must be removed. 

2. Conditionals must be properly 
nested and paired. 

3. Address modes and operands must 
be allowable for the op-codes 

These tests are accomplished by 
checking the stack position (in CSP) at the 
creation of the definition name and 
comparing it with the position at END- 
CODE. Legality of address modes and 
operands is insured by means of a bit mask 
associated with each operand. 

Remember that if an error occurs 
during assembly, END-CODE never exe- 
cutes. The result is that the "smudged" 
condition of the definition name remains 
in the "smudged" condition and will not be 
found during dictionary searches. 

The user should be aware that one 
error not trapped is referencing a defini- 
tion in the wrong vocabulary; 

i.e., 0= of ASSEMBLER when you want 
0= of FORTH 
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(Editor's note: the listing assumes that 
the figFORTH error messages are already 
available in the system, as follows; 

?CSP issues the mov m§B8ags "DEFI- 
NITION NOT FINISHED" if the stack 
position differs from the value saved in 
the user variable CSP, which is set at the 
creation of teh definition name, 

7PA1RS issues the error message 
"CONDITIONALS NOT IMPAIRED" if its 
two arguments do not match, 

J ERROR prints the error message 
"HAS INCORRECT W3DRESS MODE".) 

SUMMARY 

The object code of our example is: 



305 98? 4D 4F CE 
5f)5D 4D 50 
305F 61 30 

3061 00 

3062 4C 42 02 

OP-CODES, revisited 



CODE MON 
link field 
code field 
BRK 

JMP NEXT 



The bulk of the a^embler conaiats of 
dictionary entries for each op-code. The 
6502 one mode op-codes aret 



BRK, 


cue. 


CLD, 


CLI, 


CLV, 


DEX, 


DEV. 


INX, 


ff>)Y, 


NOP, 


PHA, 


PHP, 


PLA, 


PLP, 


RTI, 


RTS, 


SEC, 


SED, 


SEI, 


TAX, 


TAY, 


TSX, 


TXS, 


TXA, 


TYA, 



When any of tiiese are executed, the 
correaponcttng op-cade byte is assembled 
into the dictionary. 

The multi-mode op-codes are: 



ADC, 


AND, 


CMP, 


EOR, 


I..DA, 


ORA, 


SBC, 


ST A, 


ASL, 


DEC, 


INC, 


LSR, 


ROL,, 


ROR, 


STX, 


CPX, 


CPY, 


LDX, 


LDY, 


STY, 


JSR, 


JMP, 


SIT, 







These usually take an operand, which 
must already be on the stack. An address 
mode may also be specified. If none is 
given, the op-code uses z-page or absolute 
addressing. The address modes are deter- 
mined byt 



Symbol Mode 


Operand 


.A 


accumulator 


none 


# 


Immediate 


8 bits only 


,x 


indexed X 


z-page or 






absolute 


.Y 


indexed Y 


z-page or 


x) 




absolute 


indexed indirect X 


z-page only 


)Y 


indirect indexed Y 


z-page only 


) 


indirect 


absolute only 


none 


memory 


z-page or 






absolute 



EXAMPLES 

Here are examples of Forth vs. con- 
ventional assembler. Note that the oper- 
and comes first, followed by any mode 

modifier, and tfien the op-code 

mnemofiic. This makes best use of the 
stack at assembly time. Also, each as- 
sembler word is set off by blanks, as 19 
required for all Forth source text. 



.A ROL, 
1 # LDY, 
DATA ,XSTA. 
DATA ,Y CMP, 
6 X) ADC, 
POINT )Y STA, 
VECTOR ) JMP, 



ROL A 
LDY #1 
STA DATA.X 
CMP DATA,Y 
ADC (MjX) 
STA (P01NT),Y 
JMP (VECTOR) 



(.A distinguishes from hex number OA) 

The words DATA and VECTOR specify 
machine addresses. In the case of "6 )X 
ADC," the operand memory address $0006 
was given directly. This is occasionally 
done if the usage of a value doesn't justify 
devoting the dictionmy space to a symbol- 
ic value. 



6502 CONVENTIONS 

Stack Addresdng 

The data stack is located in z-page, 
usually addreMsd by "Z-PAGE,X". The 
stack starts near $009E and grows down- 
ward. The X index register Is the data 
stack pointer. Thus, Incrementing X by 
two removes a data stack value; decre- 
menting X twice makes room for one new 
data stack value. 

Sixteen bit values are placed on the 
stack according to the 6502 convention; 
the low byte is at low memory, with the 
high byte following. This allows "indexed. 
Indirect X" directly off a stack value. 

The bottoni arid second stack values 
are referenced often enough that the sup- 
port words BOT and SEC are included. 

Using 

BOT LDA, assembles LDA CO,X) and 
sec ADC, assembles ADC (2,)0 

BOT leaves on the stack and sets the 
address mode to ,X. SEC leaves 2 on the 
stack also setting the address mode to ,X. 

Here is a pictorial representation of 
the stack In z-page. 



sec high 
sec low 



bot high 
bot low 



<==X offset 
above $0000 



BOT LDA, LDA (0,X) 

BOTl+DRA, 0RA(1,X) 

SEC ORA, 0RA(2,X) 

SEC 1+ ORA, ORA 0,X] 

To obtain the 14-th byte on the stack: 
BOT 13 * LDA, 

RETURN STACK 

The Forth Return Stack is located in 
the 6502 machine stack in Page 1. It 
starts at $01FE and builds downward. No 
lower bound is set or checked as Page 1 
has sufficient capacity for all (non- 
recursive) applications. 

By 6502 convention the CPU's register 
points to the next free byte below the bot- 
tom of the Return Stack. The byte order 
fo!lnv;s the nonvc'ition of tow significance 
b/te at the lower address. 

Return stack values may be obtained 
by: PLA, PLA, which vrill puJl the low 
byte, then the high byte from the return 
stack. To operate on aribltrary bytes, the 
method is: 

1) save X In XSAVE 

2) execute TSX, to bring the S 
register to X. 

3) use RP) to address the lowest 
byte of the return stack. Offset 
the value to address higher 
bytes. (Address mode is 
automatically set to ,X.) 

4) Restore X from XSAVE, 

As an example, this definition non- 
dcstrLjctiveSy tests that the second item 
on the return stack (also the machine 
stack) is zero. 

CODE IS-IT C zero ? ) 

XSAVE STX, TSX, (setup for 
return stack) 

RP) Z+ LDA, RP) 3 + ORA, 
( or 2nd item^ tv/o bytes 

together) 

0= IF, INY, THEN, ( If zeru, bump 

Y to one} 

TYA, PHA, XSAVE LDX, (save 
low byte, rstore data stack) 
PUSH JMP, END-CODE ( push 
boolean) 



PR) =$0101,X-> 



S~> 



Return Stack 



hi byte 
lo byte 



hi byte 
lo byte 



tree byte 



second 
item 

bottom 
Item 



Here is an examples of code to "or" to 
the accumulator four bytes on the stack; 
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FORTH REGISTERS 

Several Forth registers are avail^le 
only at the assembly level and have been 
given names that retLxm their memory ad- 
dresses. These are: 

IP address of thi» I[iter[)rf?l:ive 
Pointer J S[)enifyUir| next Tortfi 
address which will be interpreted 
by NEXT. 

W address of the pointi;r lo the corfe 
ftsid of the (liciionmy de firij tion 
Just interpreteti by NCXT. W-1 
pOMtains i6C, Ihc: rsp-cnri;; for in- 
direct jump, Thrri,' f'j -ir, jumping 
Lo W-1 will indirectly jump via W 
to the machine code for the def- 
inition. 

UP User Pointer containing ad- 
dress of the base of the user 
area. 

N a utility area in 2-page from 
N-1 thru N+7. 

CPU Ruiiisters 

Wiuni Fcirtti exBcution leaves NEXT to 
eKPcutf a lOHE: definition, the following 

conventions iippiv: 

1. The V index register is zero. It 
may be freely used. 

2. The X index register defines? >Jie 
low ijyte of the bottom data stack 
item relative to machine address 
$0000. 

3. The CPU stack pointer S points 
one byte below the low byte of the 
bottom return stack Item. Exe- 
cuting PLA, will pull this byte to 
the accumulator. 

4. The accumulator may be freely 
used. 

5. The processor is In the binary 
mode and must be returned in that 
mode. 

X5AVE 

XSAVE is a byte buffer in z-page, for 
temporary storage of the X register. 
Typical usage, with a call which will 
change X, Isi 

CODE DEMO 

XSAVE SIX, USER'S JSR, 
C which will change X ) 
XSAVE UJX, NEXT JMP, 
END-CODE 

N Area 

When absolute memory registers are 
required, use the W Area' in the base 
page. These registers may be usad as 



pointers for indexdd/indirect addressing or 
for temporary values. As an example of 
use, see CMOVE in the system source 
code. 

The assembier word N returns the 
base address {usually $00D1). Ttie N Area 
spans 9 bytes, from N-1 thru N-i7. Con- 
ventinnaily, N-) holds one byte and N, 
Nt2, N— ';, NUi :ire pairs which may hold 
1f".-!-;i- -S-x^ Si-TUP for help on 

moving values lo tiie N Area. 

It is very important to note that many 
Fortlt procedures use N. Thus, N may only 
be used within a single code definition. 
Never expect that a value will remain 
there, outside a single definition! 

CODEOEI^CI HEX 

6 #LDA, N 1 - ST A, 
(setup a counter) 

BEGIN, 3001 BIT, 
(tickle a port) 

N 1 - DEC, 

(decrement the counter) 

0= UNTIL, NEXT JMP, END-CODE 
(loop till negative) 

SETUP 

Often we wish to move stack values to 
the N area. The sub-routine SETUP has 
been prnvidpd for this purpose. Upon en- 
tering SETUP the accumulator specifies 
the quantity of 16-bit stack values to be 
moved to the N area. That is, A may 
be 1, 2, 3, or 4 only: 

3 # LDA, SETtP JSR, 

stack before N after stack after 



H high 


H 


G low 


bot— > G 


F~ 


F 


E 


£ 


O 


D 


c 


C 




B 


A 


N-> A 



CONTROL FLOW 

Forth discards the usual convention of 
assembier labels. Instead, two replace- 
ments are used. First, each Forth defini- 
tion name is permanently included in the 
dictionary. This allows procedures to be 
located and executed by name at any time 
as well as be complied within other def ini- 
Uona. 

Secondly, within a code dennltion, 
execution flow is controlled by label-less 
branching according to "structured pro- 
gramming". This method is Identical to 
the form used in col on- definitions. Branch 
calculations are done at assembly time by 
temporary stack values placed by the con- 



trol words: 

BEGIN, LWTIL, IF, ELSE, 
THEN, 

Here again, the assembler words end 
with a comma, to indicate that code is 
being produced and to clearly differen- 
tiate from the high-level form. 

One majcr difference occurs! High- 
leVE::! fjO^v is controlled by run-time 
l,o^ili>;i(i vy'iFOs on the data stack, As- 
serp^biy Wow ij; i instead contrjjlled by pro- 
cessor statijb bits. Tbe prograrmier roust 
indicate which status bit to test, just be- 
fore a conditional branching word (IF, 
and UNTIL,). 

Examples are; 

PORT LDA, 0= IF,<a> THEN, 

(read port, if equal to zero do <a> ) 

PORT LDA, 0= NOT IF, <a> THEN, 
(read port, if not equal to zero 
do <a>) 



The conditional specifiers for 6502 are: 

CS test carry set C=l in 
processor 
status 

0< hyte less than zero N=l 

n= equal to zero Z = l 

CS NOT test carry clear C=0 

<NOT test positive N^O 

0= NOT test not equal zsro Z=0 

The overflow status bit is so rarely 
used, that it is not included. If it is 
desired, compile: 

ASSEMBLER DERNITIONS HEX 
50 CONSTANT VS (test overflow 
set) 

CONDITIONAL LOOPING 

A conditional loop is formrjd at as- 
sembler level by placing the portion to be 
repeated between BEGIN, and UNTIL,: 

6 U LDA, N STA, 
(define loop counter in N) 
BEGIN, POF<T DEC, 
(repeated action) 

N DEC, 0= UNTIL, 
CN reaches ^ero) 

First, the byte at address N is loaded 
with the value 6. The beginning of the 
loop la marked (at assembly time) by 
B^QM,. Memory at PORT is decrement- 
ed, then the loop counter in N is decre- 
mented. Of cours«, the CPU updates its 
status register as N is decremented. 
Finally, a test for 2=1 is made; if N hasn't 
reached zero, execution returns to 
SEGiN,. When N reaches zero (after exe- 
cuting PORT DEC, 6 times) execution 
continues ahead after UNTIL,. Note that 
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BEGS^, generates no machine code, but is 
only an assembly time locator. 

CONPITIONAL E^ECUTPN 

Paths of execution may be chosen at 
assembly in a similar fashion ?ind done in 
colon-definitions. In this case, the branch 
is chosen based on a pracessor status con- 
dition code. 

PORT LDA, □= IF, (for zero set) 
THEN, (continuing code) 

In this example, t:he accumulator ie 
loadad from PORT. Tht rero status is 
tested if set CZ=1). If so, the code (for 
zero set) is execut«d. Whether the zero 
status is set or rvot, execution will resume 
at THEN,. 

The conditional branching also allows a 
specific action for the false case. Here 
we see the addition of the ELSE, part. 

PORT LDA, 0= IF, < for zero seD 
ELSE, <for zero clear> 
THEN, <continuing code> 

The test of PORT will select one of 
two execution paths, before resuming 
execution after THEN,. The next 
example increments N based on bit D7 of 
a port; 

PORT LDA, ( fetch one byt« ) 

(K F, N DEC, { if D7=i, decrement 
N) 

ELSE, N ( if 07^, increment 

N) 

TIHEN, C continue ahead } 

CONDITIONAL NESTING 

Conditionals may be nested, according 
to the conventions of structured pro- 
gramrninq. That is, each conditional !^e- 
quence begun (IF, BEGIN,) must be ter- 
minated (THEN, UNTIL,) before the next 
earlier conditional is terminated. An 
ELSE, must pair with the immediately 
precedinq II- 

BEGIN, < code always execuled> 
CS IF, <code If carry aet> 

ELSE, <code if carry clear> 
THEN, 

0= NOT UNTIL, ( lotjp till condition 
flag is non~zero) 
<cade that continues onwardO 

Next is an errw that the assembler 
security will reveal. 

BEGIN, PORT LDA, 
0= IF, BOT INC, 

a= UNTIL, ENDIF, 

The UNTIL, will not cnmplctt? the 
pending BFCIN, since the imriicdijitely 
preceding IF, is not completed. An error 
trap will occur at UNTIL, saying "condi- 
tionals not paired". 



RETURN OF CONTROL, revisited 

When concluding a code definition, 
several common stack manipulations often 
are needed. These functions are already 
in the nucleus, so we may share their use 
just by knowing their return points. Each 
of these returns control to NEXT. 

POP POPTWO remove one 16-bit stack 
values. 

POPTWO remove two 16 -bit stack 

values. 

PUSH add two bytes to the data 

stacl<. 

RJT write two bytes to the 

data stack, over the 
present bottom of the 
stack. 

Our next example complements a byte 
in memory. The bytes' address is on the 
stack when INVERT Is executed. 

CODE INVERT ( a memory byte ) HEX 
BOT X) LDA, (fetch byte addressed 

by stack) 

FF # EOR, (complement accumu- 
lator) 

BOT X) ST A, ( replace in memory ) 
POP JMP, END-CODE ( discard 

pointer from stack, 
return to NEXT ) 

A new stack value may result from a 
code definition. We could program placing 
it on the stack by: 

CODE ONE ( put 1 on the stack ) 

DEX, OEX, ( make room on the 

data stack) 
1 # LDA, BOT STA, (store low byte) 
BOT 1+ STY, ( hi byte stored from Y 

since = zero) 
NEXT JMP, END-CODE 

A simpler version could use PUSHs 

CODF nNF 

1 LDA, PHA, ( push low byte to 
machine stack ) 

TYA, PUSH JMP, ( high byte to 
accumulator, push to data stack ) 
END-CODE 

The convention for RJSH and PUT is: 

1. push the low byte onto the 
machine stack. 

2. leave the high byte in the 
accumulator. 

3. jump to PUSH or PUT. 

PUSH will place the two bytes as the 
new bottom of the data stack. PUT will 
over-write the present bottom of the 
stack with the two bytes. Failure to push 
exactly one byte on the machine stack will 
disrupt execution upon usage! 



FOOLING SECURITV 

Occasionally we wish to generate 
unstructured code. To accomplish this, we 
can control the assembly time security 
checks, to our purpose. First, we must 
note the parameters utili2ed by the 
control structures at assembly time. The 
notation below is taken from the as- 
sembler glossary. The — indicates as- 
sembly time execution, and separate input 
stack values from the output stack values 
of the words execution. 



BEGIN, =^ 



addrB 1 cc 



addrB 1 



— addrl 2 

— addrE 2 



IF, cc 

ELSE, =^ addrl 2 

THEN, addrl 2 

or addrE 2 



The address v.^iups indicate the 
machine location of the corresponding 
'B'EGIN, 'I'F, or 'E'LSE,. cc represents the 
condition code to splect the processor 

status bit refei'f^nruri, '''he digit I or 2 is 
tested for conditional pairing. 

The genera] method of security control 
is to drop off the check digit and manipu- 
late the addresses at assembly time. The 
security against errors is less, but the pro- 
grammer is usually paying intense atten- 
tion to detail during this effort. 

To generate the equivalent of the high 
level; 

BEGIN <s> WHILE <b> REPEAT 

we write in assembly: 

BEGIN, DROP ( the check digit 
] , leaving addrB) 

<3> 

CS IF, ( leaves addrl and digit 
2) 

<b> 

ROT ( bring nddrO to bottom) 
JMP, (to nddrll of BEGIN, ) 
ENDIF, ( cnmplijte false for- 
ward branch from IF, ) 

It is essential to write the assembly 
time stack on paper, and run through the 
assembly steps, to be sure that the check 
digits are droned and re-inserted at tiie 
correct paints and addresses are correctly 
available. 

ASSEMBLER GLOSSARY 

Specify 'immediate' addressing 

mode for the next op-code gener- 
ated. 

)Y Specify 'indirect indexed Y' ad- 
dressing diode for the next op- 
code generated. 
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,X Specify 'indexed X' addressing 
mode for the next op-code gener* 
ated. 

lY Specify indexed Y* addressing 
mode for the next op-code gener- 
ated. 

•A ^ecify accumulator addressing 
mode for the next op-code gener- 
ated. 

0< — cc (assembling) 

Specify thRf the immediately fol- 
lowinq coficJitional will brannh 
based on ttit; fjrocessor status bit 
being negative (2=1), i.e., less 
than ZQTO. Th(; flag cc is left at 
assenn[)ly time; there is no run- 
time effect on the stack. 

0= — cc (aK,H(?mbling) 

Specify that Hie immediately foJ- 
lowing conditional will branch 
based on the processOT status bit 
being equal to zero CZ=1). The 
flag cc is left at assembly time; 
there Is no run- time effect on the 
stack. 



;CODE Used to conclude a colon-defini- 
tion in the form: 

: <name> . , , ;nODE 
<assembly code> END-CODE 
Stop compilation and terminate a 
new defining word <name> . Set 
the COMTS-:XT vocabulary to AS- 
SEMBLERt asr^pmbltng to mfjchiof^ 
c:odc the fullowEng nmenonics. An 
existing defining word must exist 
in name prior to iCODE. 

When <name> later executes in 
the form: 

<name> <name5c> 
the definition <namex> will be 
created with its execution proced- 
ure given by the machine code fol- 
lowing <name> . That is, when 
<namex> is executed, the address 
interpreter jumps to the code fol- 
lowing sCODE in <nBmB> . 

ASSEMBLER in !- OR FH 

Make ASSEMBLER the CON- 
TEXT vocabulary. It will be 
searched first when the input 
stream in interpreted. 

BEGIN, — addr 1 (assembling) 
— (run- time) 

Occurs in a CODE definition in 
the form: 

BEGIN, . . . cc UNTIL, 
At run-time, BEGIN, marks the 
start of an aMembly sequence re- 
peatedly executed. It serves as 
thu return point for the corres- 
pond; ng UNTIL,. When reaching 
UNTIL, a branch to BEGIN, will 
occur if the piocenor status bit 
given by cc is false; otherwise 



execution continues ahead. 

At assembly time, BEGIN, leaves 
the dictionary pointer address 
addr and the value 1 for later 
testing of conditionary pairing by 
UNTIL,. 

BOT — n (assembling) 

Used during code assembly in the 
foirmi 

BOT LDA, or BOT 1+ X) STA, 

Addresses the bottom of the data 
stack (containing the low byte) by 
selecting the ,X modK and leaving 
n=0, at assembly lime. This value 
of n rnay intjfiified tn another 
byte off Slit into the data stack. 
Must be followed by a multl-mode 
op-codc dins';! n 0(1 ic. 

CODE A defining word used in the form: 

CODE <nama> .... END-CODE 

to create a dictionary entry for 
<name> in the CURf^ENT vocabu- 
lary. Name's code field contains 
the address of its parameter 
field. When <name> is later 
executed, the machine code in this 
parameter field will execute. 
The CONTEXT vocabulary is 
made ASEMBLER, to make 
available the op-cnde mnemonics. 



CPU 



cs 



ELSE, 



n ^coTnpiliruj asj3emblt?r1 
An ^isse-Tibler defining word used 
to crate assembler mnemonics 
that have only one addressing 
mode: 

EA CPU NOP, 

CPU creates the work NOP, with 
its op-code EA as a parameter. 
When NOP, later executes, it 
assembles EA as a one byte op- 
code. 

— cc (assemblir»g) 
Specify that the immediately fol- 
lowing conditional will branch 
based on the processor carry is set 
(C=l). The flag cc is left at as- 
sembly time; there is no run-time 
effect on the stack. 

(run-time) 
addrl 2 -- addr2 2 

(assembling) 
Occurs within a code definition in 
the form: 

cc IF, <true part> ELSE, 

<falsepart> THEN, 
At run-time, If the condition code 
qsecified by cc is false, execu- 
tion will skip to the machine code 
fa Uo wing ELSE,. At assembly 
time ELSE, assembles a forward 
jump to just after THEN, and re- 



solves a pending forward branch 
from IF. The values 2 are used for 
error checking of conditional pair- 
ing. 

END-CODE 

An error check word marking the 
end of a CODE definition. Suc- 
cessful execution to and including 
END-CCX3E wiU unsmudge the 
most recent CURRENT vocabu- 
lary dsfinition, making it nvailable 
for eifecutirjii. ENO-COUL also 
exits the ASSEMF3t_ER making 
CONTEXT the same as 
CURRENT. This word previously 
was named Cj 



r. 



INDEX 



IP 



cc 

time) 
time) 



addr 2 (assembly 
addr 2 (assembly- 



Occurs within a code definition in 
the form: 

cc IF, <true parD ELSE, 
false part THEN, 
At run time, IF, brancNss based on 
the condition code cc, (0< or 0= 
or CS). If the specified processor 
status is true, execution continues 
ahead, otherwise branching occurs 
to just after ELSE, (or THEN, 
when ELSE, is not present). At 
ELSE, execution resumes at the 
corresponding THEN,. 

When assembling, IF, creates an 
unresolved forward branch based 
on the condition code cc, and 
leaves addr and 2 for resolution 
of the branch by the correspondinq 
ELSE, or THEN,. Conditionals 
may be nested. 

— addr (assembling) 

An array used within the assem- 
bler, which holds bit patterns of 
allowable addressing modes. 

— addr (assembling) 

Used in a code definition in the 
form: 

IP STA, or IP )Y LDA, 

A constant which leaves at as- 
sembly time the address of the 
pointer to the next FORTH exe- 
cution address in a colon-defini- 
tion to be interpreted. 

At run-time, NEXT moves TP 
ahead within a colon-definition. 
Therefore, IP pnints just ^fter the 
execution address being inter- 
preted. If an in-line data struc- 
ture has been compiled (i.e., a 
character string^, indexing ahead 
by IP can accBSi this data: 

IP STA, or IP )Y LDA, 



PdfttH BImeNsIonS m 
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loads the third byte ahead in the 
colon-definition being interpreted. 

M/CPU nl n2 — (cornpiling assembler) 
An aMembler defining word used 
to create asssmbler mnemonics 
that have multiple address modest 

1C6E 60 M/CU ADC, 

M/CPU creates the word ADC, 
with two parameters. When 
ADC, later executes, it uses 
these parameters, along with 
stack values and the contents of 
MODE to calculate and assemble 
the correct op-code and operand. 

MEM Used within the assembler to set 
MODE to the default value for 
direct memory addressing, z-page. 

MODE — addr 

A variable used within the 
assembler, which holds a flag 
indicating the addressing mode of 
the op-code being generated. 

N — addr (assembling) 

Used in a code definition in the 
form! 

N 1 - ST A, or N 2+ )Y 
ADC, 

A constant which leaves the ad- 
dress of a 9 byte work^ace in z- 
page. Within a ^ngle code defini- 
tion, free use may be made over 
the range N-1 thru N+7. See 
SETUP. 

NEXT — addr (assombling) 

A constant whirh leaves the 
machine addi-ess of the Forth ad- 
dress interpreter. All code defini- 
tions must return execution to 
NEXT, nr code that returns to 
NEXT (i.e., PUSH, PUT, POP, 
PORT WO). 

NOT ccl — ccl (assembly-time) 

When assembling, reverse the con- 
dition code for the following con- 
ditional. For example; 

0= NOT IF, <truepart> THEN, 

will branch based on 'not equal to 
zero'. 

POP — addr (assembling) 

n — (run-time) 

A constant which leaves (during 
assembly) the machine address of 
the return poinf which, at run- 
time, will pop ;i 16 -hit value from 
the data stack and continue inter- 
pretation. 



POPTWO 

— addr (assembling) 
nl n2 --- (run-time) 
A constant which leaves (during 
assembly) the machine address of 
t*it return point which, at rwi— 
time, will pop two l£-bit values 
from tha data stack and continue 
interpretation. 

PUSH — addr (assembling) 
— n (run-time) 
A constant which leaves (ckiring 
assembly) the machine address of 
the return point which, at run- 
time, will add the accumulator (as 
high-byte) and the bottom 
machine stack byte (as low-byte) 
to the data stack. 

PUT — addr (assembling) 

n.l. — n2 (run-time) 
A constant which leaves (during 
assembly) the machine address of 
the return point which, at run- 
time, will write the accumulator 
(as high-byte) and the bottom 
machine stack byte (as low-byte) 
over the existing data stack 16-bit 
value (nl). 

RP) — (assembly-time) 

Used in a code definition in the 
forms 

RP)LDA, or RP) 3+ ST A, 

Address the bottom byte of the 
return stack (containing the low 
byte) by selecting the ,X mode and 
leaving n=$101. n may be modi- 
fied to another byte offset. Be- 
fore opernting on the return stacl< 
the X register must be saved in 
XSAVE and TSX, be executed; be- 
fore returning to NEXT, the X 
register must be restored, 

SEC — n (asseinblinc)) 

Identical to HOI, except that 
n=2. Addresses the law byte of 
the second 16-bit data stack value 
(third byte on the data stack). 

THEN, --- (run-time) 

addr 2 — (assembly-time) 
Occurs in a code definition in the 
form: 

ce IF, <true part> ELSE, 
<falsepart> THEN, 

At run-time THEN, marks the 
conclusion of a conditional struc- 
ture. Execution of either the true 
part or false part resumes fol- 
lowing THEN,. When assembling 
addr and 2 are used to resolve the 
pending forward branch to THEN,, 



UNTIL, — (run-time) 

addr 1 cc — (assembling) 
Occurs In a CODE definition in 
the form: 

BEGIN, . . . cc UNTIL, 

At run-time, UNTIL, controls the 
conditional branching back to 
BEGIN,. If the proca«sor status 
bit specified by cc is false, exe- 
cution returns to BEGIN,; other- 
wise execution continues ahead. 

At assembly time, UNTIL, as- 
sembles a conditional relative 
branch to addr based on the condi- 
tion code cc. The number 1 is 
used for error checking. 

UP — - addr (assembling) 

Used in a cods definition in the 

form: 

UP LDA, or UP )Y STA, 

A constant leaving at assembly 
time the address of the pointer to 
the base of the user area, i.e., 

HEX 12 ff LDY, UP )Y LDA, 

load the low byte of the sixth user 
variahlB, DP. 

W — addr (assembling) 

Used in a code definition in the 
forms 

W 1+ STA, or W 1 - JMP, or 
W )V ADC, 

A constant which leaves at as- 
sembly time the address of the 
pointer to the code field (exe- 
cution address) of the Forth dic- 
tionary -^vord br;ing executed, in- 
dexing relative to W can yield 
any byte in the definition's 
parameter field, i.e., 

2 # LDY, W )Y LDA, 

fetches the first byte of the 
parameter field, 

X) Specify 'indexed indirect X' ad- 
dressing mode for the next op- 
code generated. 

XSAVE — addr (assembling) 

Used in a code definition in the 
form: 

XSAVE STX, or XSAVC LDX, 



A constant which leaves the ad- 
dress at assembly time of a tem- 
porary biiffer for saving the X 
rf!q later. Sines the X register in- 
dexes ly thi; ti;iL;i stack in z-page, 
it must bo saved and restored 
when used for other purposes. 
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iO&TH. AssembleE taz 6302 by W. F. Hagsdale 
f 81 

( FOKTH-65 ASSBtULER 
BEX 

VOCABULARY ASSEMBLER IMMEDIATE 



July i, 1980 



SCK 

1 

Z 
3 

4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
1 5 

SCR 

1 



HFR-79JU1I03 ) 



ASSEMBLER DEFINITXOHS 



( RE6JSIBR ASSICBHZKT SFRCIFIC TO IMFLEHENTAIION ) 

EO CONSTANT XSAVE DC CONSTANT V DE CONSTANT at 

[)9 CONSTANT IF Dl C0HSTAN1 S 

( NUCLEU!) LOCATIONS ARE IMPLEMENTATION SPECIFIC ) 

(DO) OE + CONSTANT FOf 

(DO) OC + COMSTANT POFTVIO 
' LIT 13 + COMSTAMT FUT 
' LIT II + CONSTANT PUSH 

LIT 18 + CONSTANT NEXT 
' EXECUTE NPA 1 1 - CONSTANT SETUP 



3 
4 
5 
6 
7 
8 

10 
11 
12 
13 

14 
IS 

SCR 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



it 82 

( ASSEMBLER, COKT. 

VAKIABLE INDEX 
0909 , 1505 , 0115 , aoil 
t)080 , 140* , 8014 , 8080 



VARIABLE HODE 
.A HODE 1 
,X 3 HODE 1 
)T 6 MODE 1 



I 

,1 

) 



■2 ALLOT 

, 8009 , li)OD 

, 8080 , ICOC 



1 MODE 1 
4 MODE 1 
F MODE I 



WFR-780CT03 > 

S019 , R080 , 

801C , 2cao , 



HEM 2 MODE 1 
X) 5 HODE I 



BOT 
SEC 
RP) 



.X 




2 

101 



( ADDRESS THE BOTTOM OF THE STACK *) 
( ADDRESS SECOND ITEM ON STACK *) 
( ADDRESS BOTTOM OF RETURN STACK *} 



# 83 

( UPHODE, CPU 

: UPHODE IF MODE @ 8 AND 0« IF 
1 MODE i OF AMD -DUP IF 
OVER l-l- 9 AND 0- ; 

! CPU 



WPR-780CT23 ) 



8 HODE -l-i THEN THEN 
DO DUF 4- LOOP THEN 





<BUILDS 


C , 


DOES> 


c@ 


c. 


MEM 


; 








00 


CPU 


BRK , 


18 


CPU 


CLC, 


D8 


CPU 


CLD , 


58 


CPU 


CLl , 


88 


CPU 


CLV, 


CA 


CPU 


DEX, 


88 


CPU 


DEY , 


E8 


CPU 


INK , 


C8 


CPU 


INV , 


EA 


CPU 


NOP, 


48 


CPU 


PHA, 


08 


CPU 


PiiP, 


68 


CPU 


PLA, 


28 


CPU 


PLP, 


40 


CPU 


RI I , 


60 


CPU 


RTS , 


38 


CPU 


SEC, 


F8 


CPU 


SEO, 


78 


CPU 


SEI , 


AA 


CPU 


TAX, 


A8 


CPU 


TAY, 


BA 


CPU 


TSX, 


8A 


CPU 


TXA, 


9A 


CPU 


TXS. 


98 


CPU 
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SCR 

1 
2 

3 
4 
5 
6 
7 
8 
9 
10 
1 1 
12 
13 
U 
15 

SCR 

I 
2 
3 
4 
S 
6 
7 
8 
9 
10 
1 1 
12 
13 
14 
15 
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( H/CPO, HULTt-HODE 
i H/CPU <SUILDS C, 
DDF t 80 AND 
FFOO AND UFH09E 

3 ERROR THRU 
IMDEX + C@ + 
OF ADD 7 < IF 

1C6E 60 H/CPU ADC, 

IC6E 40 M/CFU EOR, 

1C6E EO ti/CPU SBC, 

OCOC CI M/CPU DEC, 

ODOD 21 M/CPU ROL, 

0486 EO M/CPO CPX, 

0C8E AO M/CPO LDY, 

84S0 40 H/CPU JKP, 



OP-CODES 
> ]>OES> 

IF 10 MODE -1-1 TBEN OVER 
QFMODE I? HEH Ca LATEST ID. 

e§ MODE ce 

MODE C3 7 AK0 IF MODE C@ 
C, ELSE , THEH THEN KEH ; 



HFR-79IUR26 ) 



1C6E 20 H/CPU AND , 
1C6E AO M/CPU LDA, 
1C6C 80 M/CPU STA, 
OCOC El M/CPO INC, 
ODOD 61 M/CPU ROR, 
0486 CO M/CPU CPi, 
048C 80 M/CPU STY, 
0484 20 M/CPU BIT, 



1C6E CO M/CPU CMP, 

1C6E 00 M/CPU OSA, 

ODOD 01 M/CPU ASL, 

ODOD 41 M/CPU LSR, 

0414 81 M/CPU SIX, 

1496 A2 H/CPU LDX, 

0480 14 M/CPI) JSR. 



# 85 

( ASSEMBLER CONDITIONALS 

] BEGIN, HERE I ; IHHEDIAIE 
t UNTIL, ?EXEC >R 1 IFAIRS R> C, RBRE 1-1- - C, 
: IF, C, BERE C, 2 ; IMMEDIATE 

: THEH, 7 EXEC 2 IFAIRS HERB OVER Cg 

IF SWAP i ELSE OVER 1+ - SHAF CI THEN 
: ELSE, 2 tPAIRS HERE 1+ 1 JMF, 

SWAP HERB OVER 14- - SWAP 
) NOT 20 + J 
90 CONSTANT CS 
BO CONSTANT 0- 
10 CONSTANT Q< 
90 COKSTANT >- 



HFS-79HAR26 ) 



IMMEDIATE 



IKKBOIATB 



CI 2 ; IMMEDIATE 

( REVERSE ASSEHBLT TEST } 

( ASSEMBLE TEST FOR CARR2 SET ) 

( ASSEMBLER TEST FOR EQUAL ZERO ) 

( ASSEMBLE TEST FOR LESS THAN ZERO ) 

( ASSEMBLE TEST FOR GREATER OR EQUAL ZERO ) 

( >- IS OHLT CORRECT AFTER SUB, OR CMP, } 



SCR 

1 
2 
3 
4 
3 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
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( USE OF ASSEMBLER 
J BND-CODE 

CURRENT (3 CONTEXT 



( END OF CODE 
TEXEC rCSP SMUDGE ; 



MFR-79APR28 ) 
DEFINITION *) 
IMMEDIATE 



FORTH 

: CODE 



DEFINITIONS 



7BXBC CREATE 
ASSEMBLER MEM ICSF 



DECIMAL 

( CREATE HORD AT ASSEMBLY CODE LEVEL *) 
I COMPILE] ASSEMBLER 

IMMEDIATE 



( LOCK ASSEMBLER INTO SYSTEM ) 



* ASSEMBLER CFA 
LATEST 12 +ORICIN 
HERB 28 -t-ORIGIH 
HERE 30 4-ORIGIN 
' ASSEMBLER 6 -f 
HERE FENCE 1 



' iCODE 8 
1 C TOP NFA 
1 ( FENCE ) 
1 ( DP ) 
32 +ORXGIK 



1 { OVER-WRITE SMUDGE ) 



1 ( VOC-LINR > 
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APPLICATIONS 

ATECHNiCAI- lUrURIAL: 
T/«LE LOOKUP EXAKB=LES 

Henry Laxen 
Laxen and Harris, Inc. 

Orii! of Lhe problems with FORTH, as 
with nVBpy rinh language, is that (}iv(jn :.in 
idea, lhr;rc; arn many ways of uxprpssinij 
it. Some are more fiioqueiit th^in othnrs, 
bi.it it takes practic^f; and experienoo to 
create thK pnijtry and avoid the murnjane. 

This arlirlo is v/ritten to illustralG 4 
different ways of implementing a simple 
Table Lool<up operation. The goal is the 
foUowingt we want to create a FORTH 
WOTrf, named DAYS/MONTH which be- 
haves as follows: Given an index on the 
stack which is the month number, such as 
1 for January end 12 for December, we 
want to return the number of days in that 
month, in a normal year. Thus if we exe- 
cute 6 DAYS/lvlONITH it should return 30, 
which is the number of days in the month 
June. I will use the Starting FORTH dia- 
lect in this paper, not fig-FORTH, so if 
you try to type in the examples, they 
probably won't v/ork uriji^ss you are running 
a system that bphavfis as described in 
Starting FOf^Ttl far the 79-Standard), 

Our first attempt at solving this prob- 
lem uses the FORTH word VARIABLE. 
The r^tjde is as follows: 

VARIABLF 'l^iAYS/MONTH 22 ALLOT 



31 'DAYS/MONTH 



28 'DAYS/MONTH 


Z 


+ ; 


31 "DAYS/MONTH 


4 


+ ; 


30 "DAYS/MONTH 


6 


+ ; 


31 'DAYS/MONTH 


8 


+ ! 


30 OAYS/MONTH 


10 


+ ! 


31 'DAYS/MONTH 


12 


+ ', 


31 'DAYS/MONTH 


14 


+ ; 


30 'DAYS/MONTH 


16 


+ I 


31 'DAYS/MONTH 


18 


* I 


30 '['JAYS/MONTH 


20 


1 


31 'DAYS/MONTH 


22 


+ : 



: DAYS/MONTH ( INDEX — VALUE ) 
1- 2* 'DAYS/MONTH * ;§ ; 

There is nothint] significant about the ' 
(apostrophe), I only prefaced the VARI- 
ABLE name with it because I want to use 
the word OAYS/MONTH later. Now, what 
happened is that VARIABLE allocated 2 
bytes in the dictionary for the value of 
DAYS/MONTH, The 22 ALLOT then allo- 
cated another 22 bytes, for a total of 24 
bytes, or 2*12 cells. We next proceeded 
to initialize the values that were allocated 
by explicitly calculating the offsets and 
storing in the appropriate location. 
Finally, we defined DAYS/MONTH as a 
colon definitim which performs arlth- 
meUc on the index, adds it to the start of 
the table, and fetches the result. 

Now, let's look at another way of doing 



this that requirss less typing and is also 
more general. We will first define a word 
called TABLE which will aid us in the cre- 
ation of tahles like the one above. What 
we will do is first place the initial values 
of the TABLfT on the stack, together with 
the numtier of the initial values. Then, we 
will define TABLE to copy these into the 
dictionary, Htere is bow it works: 

: TABLE ( Nn Nn-1 ... Nl n — ) 

O OO , LOOP ; 

CREATE 'DAYS/MONTH 

n .il) ? 1 JO T I 3 [ JO 31 30 31 28 
Jl 12 TABLE 

: DAYS/MONTH ( INDEX — VALUE ) 
1- 2» 'DAYS/MONTH + § ; 



Now this is considerably iess typing than 
the first way of doing it, but notice that I 
had to reverse the order of the days per 
month since that is the way stacks be- 
have. I used CREATE instead of VARI- 
ABLE because it does not allocate any 
space for the initial value, but otherwise 
behaves just like VARIABLE. The access 
word DAYS/MONTH Is identical to before. 

I am still not satisfied, however, so 
let's try it yet another way. Instead of 
defining TARLF \:1 ijiSd values to the dic- 
tionary with , (cotnma) why not just use , 
directly? 

CREATE 'DAYS/MONTH 
51 , 28 , 51 , 30 , 31 ,30 , 

31 , 31 , 30 , 31 , 30 , 31 , 



s DAYS/MONTH ( INDEX — VALUE ) 
1- 2* •DAYS/MONTH * ^ ; 



Now we are getting somewhere! If we 
simply use the FORTH word , (comma) to 
add the value to the dictionary, see how 
simple and readable it becomes. The 
values are Just typed in ai^d separated by 
commasli Is it possible to improve even on 
this? Funny you should ask. There is a 
guality that can be abstracted from ttiE 
definition of DAYS/MONTH, namely that 
of tablf? lookup. Wouldn't it be nice if we 
didn't need to create that extra name 
'DAYS/MONTH simply so we could access 
it later In our : definition. V/ell, that is 
where our friend CREATE DQES> comes 
in. 

Instead of defininq a particular in- 
stance of a TABLE, we wiil create a new 
Oefinii^ Wcn^J called TABLE, whi<^ acts 
as follows. It creates a new entry in the 
dictionary which when executed, uses the 
value that was placed on the stack as an 
index into itself and returns the contents 
of that location. It would be coded as fol- 
lows: 



! TABLE 

CREATE ( — > 
DOE& { INDEX — VALUE ) 

SWAP I- 2* + § ; 

jmLE DAYS/MONTH 

31 ,28 , 31 , 30 , 51 , ^0 , 

31 , 31 , 50 , 51 , 30 , 31 , 

Now we have truly generaiiied the 
problem and solve it in an elegant way. 

We have defined a nov/ dnia type, called 
TABLE, which is trsipable of defining new 
words. Part of the definition of TABLE 
was specifying the run-time behLjvior of 
the word being defined. Thi^ is lhe f:-ode 
following tb(- l^'?;:=;>. We th-.-i n;:-. the , 
(comma) teciiniqur: discovf^red al^jove to 
initialize the table. Note that 

DAYS/MONTH is now just a fecial case 
of TABLE, and is in fact defined by the 
new defining word TABLE. 

The above examples illustrate the Im- 
mense diversity available in FORTH. 
There is no obvious right cr wrong, and the 
simplest and usually most general solution 
to a given priAlem rmist be cfiscovered, 
usually by trial and error. FORTMs big- 
gest virtue, in my opinion, is that It makes 
the trial and error process extre nely ef- 
ficient, and therefore, allows puople to 
experiment and discover the best solution 
for themselves. 



HELP WANTED 



Programmers needeed to produce new 
polyFORTH systems and applications. 
Two to three years extensive FORTH 
experience wofking with mini/micro 
computers and peripherals. 

Contact; Patricia Jones 

FORTH, INC. 

2509 Pacific Coast Highway 
Hermosa Beach, CA 90254 
(213) 372-8493 



fig-FORTH NOVA GfWXJP 



Mr. Francis Saint, ZZ18 Lulu, Wichita, 
KS 67211, (516) 261-6280 (days) has 
formed a FIG Group to trade information 
and assistance between fig-FORTH NOVA 
users. 

Pub, Comrf*ent: Hope to see a new, 
clean listing. How about some athst 
specific groups! 
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THE GAME OF RE^RSE 
M. Burton 



REVERSE is a number game written in 

FORTH, primarily as an exercise in array 
manipulation. The object of REVFCRSC is 
to arrange a list of numbers (1 through 9) 
in ascending numerical order from left to 
right. Moves are made by reversing a sub- 
set of tile list (from the left). F or 
example, if l^he current list is 

2345167B9 

and four numbers are reversed, the list 
v/lU be 

543216789 

then if five nurr^ers are reversed, the 
game is won. 

123456789 

Tq leave a game that is in progress, 
simply reverse zero numbers. 

REVERSE Glossary 

SEED 

The number seed for the pseudorandom 
number germrator. SEED is initialized 
as the REVERSE words are compiled, 
by hitting any key on the console. 

IVIOVES 

Keeps track of the number of moves 
made in a REVERSE game. If more 
than fifteen moves are made to win, 
you haven't ^ot the hnnq of the qame. 

RND range ~ random. number 

The pSBtidorandom number generator, 
courtesy of FORTH DIMENSIONS. 
RND generates random. number in the 
range through range-l. RND is used 
to scramble the number list. 

DIM n~ 

A defining word used in the form 

n DIM xxxx 
Produces an n+1 length word array 
nnmuij with elements through 

n. f-.ir thp RHVrJRSE application, 
alement is not used, 

Y/N - flag 

Soli - i'.'. ;in input string from the con- 
sole, then checlcs the first character of 
the string for an uppercase or lower- 



SCR * 22B 

O I Th* Gmb* of R*v«r«* tSEED, MOVES, RND, DIM, Y/Hl 1013ei-HPB I 

I 

2 O VARIABLE SEED t S««d tor random numbar g«n*rater ) 

3 VARIABLE MOV£S ( Hu«b*r of r*v*rm«« so far ) 

4 C(t . " Please daprM« may kmyt* i Partilis* th* sMd > 

5 KEY BEED I 

e 

7 : RND ( Rktidom number generator range — rnd* ) 

B SEED • 359 • 3 « 32767 MIO DUP SEED 1 32767 •/ ; 

» 

10 ; DIM ( R«s«rv* an Integer word array n — ) 

11 <EIIIU»8 1+ 2 • hUJOn 

12 DOBS> ; 
13 

14 : Y/N t Gat a Y or H raapenaa — flag ) 

15 PAD 80 EXPECT PAD Ct CR CR 95 AND B9 - i — > 



SCR 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 



329 

Tha Qi 



of Ravaraa IGama Inatructlons ) 



10128 1-MFB ) 



: XHStBUCT CR CR 18 SPACES . " The Gam* q£ REVERSE" 

CR CR ." Uould you like inatructlone? " Y/M 

IF . " The object of the game Is to arrange a random list" 
CR ." of nine numbers Into aecanding numerical order In" 
CR ." as few moves as poaelbls by reversing a subset of 
CR the list. For example, given the random Hat," 
CR." 524B73916"CR 
CR raveraing a subset of 4 trould ylald the llat,* 
CR.» B42573916''CR 
CR To q^it th* gan*, a imply ravaraa 0." CR Clt 

THEM ; 

— > 



CR 



CR 



SCR 

1 
2 
3 
4 
5 
6 
7 

a 

9 
lO 
11 
12 
13 
14 
15 



# 230 

( Tha Gaoia of Ravaraa I ARRAY oparations] 



9 DIM ARRAY 
: A* 



t Rasarv* a tan word array I 



I Fetch an array word Indax 

ARRAY + • : 



1012B1-MP8 1 



array . valua ) 



Al 



AINIT 
10 1 



< Store an array word array .value Mndax 
ARRAY + I ; 

I Initlaliz* ARRAY — t 

DO I DUP At LOOP ; 



I Print ARRAY 
at Th* llat Is now..." 
CR 6 SPACES 10 1 DO I A« 



— t 
LOOP 



£ig-FORTH Vara ion 1.15 
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SCR 



1 

2 
3 
4 
5 

7 
8 
9 
10 
11 
12 
It 
14 
15 



« 231 

( Tha Gamm of H*vmr»» [ARRAY op«ratlon«, cont. I 



1007ei-HPB ) 



ASCRAMBLE 
1 9 00 



RND 1 + 
AS 
Af 

I At 
SUAP At 
+LOOP ; 



-1 



GETIN 
BEGIN 



UNTIL 



( Mix up th« array v«lu«« 

( CaLculata K ) 

< Gat ARRAY! 1 3 valu* 1 

< Gat ARRAYIK) valua ) 

t Stora ARRAY IK I In ARRAY! 11 

( Stor* ARRAYIII In ASRAYtKl 



Gat anount. to raversa -- n ) 
CR . ** R*v«r«« bam Mny? " 
FM> aO OCPBCT PAD • 48 - 
DUP 0< OVER ft > OR DUP 

IP at Only through 9 Is nlloirad. " THBN (H 

at s — > 



•Y'. If a 'V is present, the flag 
returned is true. For any other char- 
acter, ttie flag is false. 

INSTRUCT 

Prints t'lp nacne of thi^ qame and then 
asks inst.rtj'rh 'irir; or^^ required. If 
yes, iostructiOFis are displayed. 

ARRAY 

A ten word array tliat contains the 
number list that REVERSE worits on. 
Element zero of the list is not used. 

A@ index — array.value 

Fetches the Index array.value of 
ARRAY and leaves It an the data 
stack. 



SCR 



1 

2 
3 
4 
9 
6 
7 

a 

9 

10 
11 

la 

13 
14 
19 



232 

Tha Gaaia o£ R«v*r«a 



[ARRAY op* rat ion a , cent.) 



1007ei-HPB > 



AREVERSE 
DUP 2 
DO DUP 
DUP 
I 

SUAP 

I 



/ 

I - 
A* 
A8 

Al 
At 



I* 



1 
1+ 
SWAP 



( R«v«rsa a BubBat of ARRAY n — 

t Loop limits ara 1 to tn/2I+l I 

t Calculate Indax n-I*l > 

( Gat ARRAYln-I + H I 

( Gat ARRAY t I) ) 

( Stora JVRRAYCIl in ARRAY t n~ 1 1- 11 I 

( Stora ARRAY ln-X+ 11 In ARRAY III ) 



LOOP DROP 



ACHSCK 
1 10 



DO 

I 

LOOP 



I CtMsk Cor •aoanding saq. 



flag > 



DUP At 



AND 



■ [REVERSE daflnltionl 

I Play tha gana > 

MOVES I 



SCR * 233 

I Th« Gaina of Ravan 

1 

2 : REVERSE 

3 INSTRUCT AXNIT 

4 BEGIN 

5 ASOiAKBLE O 
« BEGIN 
7 A. GETIN DUP <^ 
a IP 1 ELSE 
9 AREVERSE 1 MOVES +1 

10 THEN 

11 UKTJL 

12 A. CR ." You B«aa ** MOVES 

13 CR ." Cara to play again? " Y/N 0> 

14 UNTIL 

15 CR . " Thanks for playing REVERSE... " CR CR 



101281-HPB ) 



ACHEOC 
" r*v«r*al* . ' 



CR 



fig-FORTH Varalon i.iS 



H. Burton 



a; array.value Index — 

Stores array.value into tha index ele- 
ment of ARRAY. 

AIN[T 

Initializes ARRAY with the numbers 1 
through nine in game winning order. 



Displays ARRAY in an understandable 
format. 

ASCRAt^E - 

Using RND, scrambles the numbers in 
ARRAY for a new REVERSE game. 

GETiN - n 

Solicits the number of elements of tiie 
list to reverse. If any character other 
than through 9 is entered, GETIN 
prints "Only through 9 is allowed.", 
and solicits another number. 

AREVERSE n - 

Reverses the nth length subset of 
ARRAY, starting from element 1. 

ACHECK - flag 

Checks ARRAY for proper ascending 
numerical order. If ARRAY is in the 
proper order, ACHECK returns a true 
flag. 

REVERSE - 

TPie game definition. Uses all pre- 
viously defined words to play the gams 
of REVERSE. 



ok 
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THE 31 GAME 
Written by Tony Lewis 11/81 

The "31 Game" is an attempt to use 
FORTH fundamentaia to produce an enter- 
taining rt'?o'j!l. The object is to entice you 
Into an!yzing both the game Italef and the 
methods used to produce it* The game 
buffs might wish to know that I have been 
an avid "player" (not gambterO for over 30 
years and have made extensive practical 
studies of various games. Any phone 
communication is welcome, I am two 
years behind in my written corres- 
pondence; so sending me letters which 
require replies will prove futile. The pro- 
gram is my first effort in FORTH. How- 
ever, I have had extensive experience with 
six different main frame assemblers pltiG a 
little COBOL of the late 60's vintage. 
Any constructive euggestions on general 
style and technique are welcome, but I am 
not really interested in being told that I 
could have shaved 100 microseconds from 
my run time or saved fifteen bytes of 
memory. In fact, there are indeed extran- 
eous "CrW which were included to get 
good hard copy, also. 

This program was written in micro- 
motion (c) FORTH-79 Version 1.2 to be 
run on a 48K *Apple n. 

ThercfoE'R, the following words are 
non-standard but included in the micro- 
motion FORTH. 

Home - position the cursor to the 
upper left corner of the CRT and clear the 
CRT to blanks. 

CV and CH are used to position the 
input cursor anywhwere on the text win- 
dow per Ex. 4 CV 10 CH moves the cursor 
to the 4th (pun) row 10th column of 
screen. 

SETINV, SFTl-LASH, and SETNORM 
set flags in the Apple output subroutinES 
which respectively cause all subsequent 
characters to be displayed nn the text 
screen inverse, flashing and normal mode 
u/iLhoiit affecting charcters already dis- 
played. 

In closing, I wish to thank Bill Ragsdale 
for his gracious support and I e^ecially 
acknowledge the incredibly patient treat- 
ment I received from Phil Wesson of 
Micromotion as he neatly led me through 
my FORTH initiation. 

Tony ! .ewis 

inn Mijriner r.^rcen Dr. 

Cnrtr. Ma*-ra, CA '^Itfi') 

(41 '» <)2'-\-l'm 

(415) 92;t-4Z16 [late hours) 



'Apple is a registered trademark of Apple 
Computer, Inc. 



SCR»S1 

■ H0Wr051 HOME < 51 GflMS-TONY LEWIS) . " 

31 GAME ay TONV LEWIS 

'31' IS PLAYED WITH A DECK OF 2A CMlOS 
COMTAtNINING ONLY THE AI£S THRU SIXES. 
EBCH OF TWO PLAYERS ALTeRMflTELY DRAWS 
CARDS RWh THE DECK, ONE CARD AT A TIME. 
A RUNNINQ TOTM. IS KEPT OF THE COMBINED" 

SOM OF THE CARDS DRAWN. THE PLAYER WHO 
ARRIVES AT THE SUM Of 31 EXACTLY WINS, 
IF IMSlTHEfi PLAYER CSN MAKE 31 EXACTLY. 
THEN THE PL AVER WHO MUST BQ OVER 51 
LOSES! THE SAME MAY APPEAR TOO EASY. BUT 
It IS DECEPTIVE. MHEN EOR IF?1 YOU HAVE" 

WON THREE BAHES. THY TO BEAT THE PROGRAM 
fDfi 'THE BIS BST' eV TVPING IM ' 
RlVPHER THAN 'V' OR- 'N' WHEN NHW SAME?' 
LUnES UP. THE 'BIG BET' IS A i WO GAME 
SERira. VOU 00 FlftST IN GAME 1 AND 
SECUND IN GAMU 2. YOU MAY BE SURPRISED!" 
CR CR CR ." HIT ANY KEY TO BEGIN" 
KEV DROP HOME & CV t — > 

3CR4S2 

( NDROS OP WISDOM 31 BV TONY LEHIS) 

( THE 'ANSWER' PAGE JS tffiXT. IT DOESN'T 
REQUIRE ANY SKILL TO F HjUf(E OLiT WHHT THE 

CONSTANTS REALLY ASE • I HE r ARE i:NC0DE1;i 
SO THAI VCIU CAN ENTER (ttih COMPILE THE 
HAME WITHOUT DISCOVERING JIS PRINCIFLE. 
REMEMBER, THE PURPOSE OF THIS PROJECT 
WAS TO BSJ YOU TO FIRST EXAMINE THE GAME 
BV PLAYING IT, THEN FIGURE OUT HON TO 
APPROACH THE PROBLEM OF PTO0RAMK1NO IT, 
AND FINALLY GO i^ACK AND COMPARE YOUR 
METHODS TO MINE. THE GAME IS AMUSINS 
AND IS A LITTLE KNOWN CINCH BAR BET. IF 
■lOU TCtKE THE TIME TO EMTEIl ; r l -N': tl VOUR 
l^LjRfH DISC. YOU SHOULLr :ih\,C .■ liN I.'OTU 
ANriLVilNG IT AND THEN NT (".R 1 Pi I N J iJCi t CR 
HUSTL1NS3 FRI&NDS HND FAMILY WITH IT. 
OF C0UR!3e WHEN PLAVING AT A BAR VOU MUST 
USE A REAL DECK OF CARDS AS IT WOULD 
PROBABLY TEND TO DISCOURAGE NAGEI^INe IF 
you SHOULD BRING YOUR 'MICRO' WITH YOU.) 



SCRMS3 

( ENCODED CUNliTANlli 31 BY TONY LfWlSl 
1 NOTE! THESE CUNi.TA:^!^ HfiE USED ONl.Y 
TO CONCEAL fHE jjOLUTlON OF 1HE SAME, 
HO I TCI MAKE THE CODING H4ARD TO FOLLOW ! » 

CONSTANT Kl 
O CONSTANT KZ 
CONSTANT K3 
< i I CONSTANT K4 



1(1- ) 



CD 


EE" 


ilr 


AB 


In: 


4 




■ i k 


DC 


FE 


* 


DA 


CV 




- 44jC/ 




CE 


t£D 




AC 


T3D 


* 


- SFBb - 




EC 


DE 


* 


CA 


DB 


* 


- IFDB - 


' K4 



DECIHAl 

— > 

SCR«S4 

( ^.ETUP AND UTILITY WORDli 31 -TONV L£MIS) 

C.>.-r,',TE mCK 

■i , ■! , 4 . 4 . 4 . ^1 . .1 , 111 , 

'vHrtliiliLC CARD&UM Vrii-. I.ilil C bAMESUIOM 

: NtWljAML 1 I l|.-. 1 , l'L t 

CARDSIIM ! HOME 4 CV s 

3 ShfOHDECKSUM CR CR 

." THE DECK NOW CONTAINS " 
7 1 DO I < riOT Jn > 2( 

DECK + 0» ( DUCK O DO ) DUF 
IF t+ 1 DO J . LOOP 
EL BE DROP 
TH( N 
LUPP li l.H 
." THE RUNNING TOTAL IS " CARnSUM 3 . ; 

: BADFUAV 

1 FLAO BAD PLA¥> CR CR 
." BAD TYRE- IN" SHOWDECKSUM ; 



fiCRu;):. 

( UULlTV WORDS CONT. ;i 6Y TON/ LEWIS) 

: UPDATEDECKSUM i I 10 h NOW llN STACK) 
DUP 2* DUP DECK * C8 DUP < AMY LEFT?) 
IF 1- ( UPDATE DECK) StWrP DfiCK ♦ C! 
CARDSUM ClP * rfiPDBUM C! < NEW HUHt 
3 ( I Hl)L.-(lv) -Dl'C;-; FUAO) 
ELSE DROi- i,*Ui^ LROP 
THEN i 



■ lliUfJl iNK omaS 3( BV TONY LEWIS) 

: PLArtFiMOVE CR CfS 

TYPE IN CARD 1 - 4 " KEY CR 
4S - ( FROM ASCII) DiiP DUP DUP 
( CHRCK ViSLlD EMTUY) 
7 < 

IP <>■,' '. tARD t - 6 ■?) 
IF UPUhTEOECKSUM SWAP 
HOMfc . " YOUR CARD WAS A " , DUP 
i>s i ISi CAPO IN THE DECK?) 
iF DROF' < FLAG BAD PUIY) O 
CR CR . " CARD NOT IN DECK- 
SKlMDECKSUM 
THEN 

ELSE DROP DROP BADPLAV 

T r-it'lT 

1 1 :>!-. ijROP DROP DROP BADPi.AY 

iiiLN : 



( MAINLINE WORDS iOMT. .'3 Bv 1 UNY LEWIS) 
: Ml CARD CH i.Vri 

JF ( CHECK ISr Pl.HT SWITCH) 
K3 RANDOM I* DUP UPDATEDECKSUM DROP 

FLse Kl DUf CARDSUM ca + 

I-:;: - r l MEiO - DL»> 

iJKl'jAiEDFi l SUM 
u-~ 1 I H AO ON VALID CHOICE' 
Ir OfviIK- 1 EjUH' IJPDr.VEDFCf^fiOM 
IF 

Ei.SE i>RO(= 2 LlFDATEDtLKSUM 

ThtfiW ( FLAO^CARti. Si) NO DROt') 

THfiN ," MV PLHV 13 " . SHOlJDetVSUM 



\ MAINI. iNt WORiiS CONT. i^i WY TUNV LEWIS) 

: f I'll 'I - . . -.fc- t 

111 . l-i 11 . . . i lii'lLi'- r 

-...j . i.i.:. r-;.*i* i.Fp,vt;, o i.ii .■rmk) 

I M l I I L >.m:iwi>i' I .I- ^IM'A 
II \ FLAMTi \lt.M (. n^. i t-l h f ■ r 

! vouwiN Civ i:r ~, in. 

.■• OH Rt'TEi' lO[l WtN. '■ ^icTNOhn 
CjAN£ L^WON O-i ) * GAMESWON C > i 



HHjlOsE CR CR SETINV 

." YDO LIl&F. BETTER LUCl,' NFx r TIME.' 
fifcTMORM : 



iiiCR»5'* 

i MAINE [Nt ^lUHi}i~' ! U^H■. BV Ti'jNV iliWI^^ 

: NORMIU. ; 1 HUME " CV 

." DU llllj W«Ni FIR£>T PLA'l • TYPE ¥ OR N. " 
CR I dv 'S = < M) 

IF 1 ( iSr MOVE) MVCARD EL'SE VObHCOaO 
THEN O SWAP V SET UP LOOPi 

,1 ■ IlflJh l-T,Ai; S(-T ON MVrAftD) 
:", 1 I niVlirii IH I --11 -■ 
!l (iilit-J nl I 1 • --1- I l.'ilir 111 I -> 

[:l A I (-U- ! 11-1 I -L- 

l[- '.-(11 It t 1^1. i: t--L:'k fl ll-lKi.i.iai 1! 

TI^N 
IHEM 

( USE < RFIIIRti FHOM 'lOLiht.nRi)! 
Z\ CH«D«OM Ci < 
If YlJUl OSE H- 
!.■[ I iiKLs^Un I -J --- 

U VMIiWIU El kl.:-;t." 'I nTi.-iiK-)l i-l 
1 n; fi 'I iLir 1 r: I nr.'rK : 

j I II h.; 
i i-ik-lj 

UrlllL M I LtJOl- Hfril j- EN n(-Wr.E.:;, E I ? --■ ■ 
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( MAINLINE MtMt>S CM\ . 3t BV TONV Laum 
: HYBIGBtTI Ctt Cfl 

M OUP CftRittSUM Ca ♦ K2 - Kl MOD - 
DUP- UPBATEDEDsSUM 0= 

IF DROP K3 DIJP UPDftTEDECKSUM DROP 
THEN . " MV PL AY IS " . SKOWDECKSyh 3 s 

IF DUP UPDATEDFCKSUM DROP 

E1.SE Kl CflBDSUM kl- - M «Oi> - DUP 

upofl TeDEi>:surt j- 

II- DROP K4 ljUP lIPDrtTEItEtKSUM DROP 
I MUM 

THEN MY PLAY IS " . SHOUDECKaUM 3 ! 



SCR«A r 

< MdllJl IiJf- WORDS CONI-. 31 BV TONY LEWIS* 
(j I N 

( TRUE t^HiJM nYtilraUPri) 
31 CARDSUM ' 
IF YOUWJN i ( SET LOOP EXll) 
PLSE -31 CAKDSUM CSi = 

IT fOULOSg 1 

LI ;J" YOURCARD Cl 

ruf-.N 

THl-N 

Ki-sai ( RHiymi fuim yoijrdard> 

31 CAROSUh u.^ . 
IF VmiLOSE I 
ELSE 31 MRDSUM CS - 
Ir VOUWIN I 

elem; Mv&ieeeTi o 

1 1 ll-,M 
I t-:: II 



( M-flY THE RftME OF 31 BY TOM¥ LJEMISJ 
I MAIN31 < LOGIC SHELL) eAMESWOM ! 
MreiN C,R CR 
. " NEW ^Ane -' ■' 

... Jfpfr y (]f, i)f^ TjfBIR BETJ." 
L.R i;.R I'FT iMI- re - ( CH£i:K. FOR N> 

1 i-Aiiifc I i nvi;s /a ON STACK for 'until' > 

IK NEWbArill ^6 - [ D) 
IF eAMESWDN C3 2 > 
IP BICBET 

ELSE HOhE O . " VOU HAVE MON • 
OAMESWON C9 DUP . . ■ GAME* 1 » 
IF . '■ . " 

ELSE . ■' S. " 
THEN 

. ■■ YOJ MUST WIN 3 GAMES TO " 
PLfiY BIS BET' . " 

THEN 
ELSE NCWMALSI 
THEM 
THEN 
UNTIL I 

I 31 GAME H0WT031 CODECONS MAIN31 ; 



OK 

C0IKC0N3A MAtNSl 

NEN GAME? TVPE V OR N OR BtMtB BTT) , 
m YDU WANT FIRST PLAV? TVPE Y OR N. 



MV PLAY IS 2 

THE DEi',K nm UOKTAIhtS 
1111 

^ z ', 

4 .1 '1 .1 

i. i, <- o rut KUWNIhie TOTAL IS 2 



MV PLAV IS 4 

THE DECK NOW CONTAINS 

1 1 1 

2 2 2 

3 3 

4 4 4 

5 5 S 

h ^ is THI- F^^JJMNl^Jl.■ HJkAL IB 

TVPE IN CARD 1-6 
YOUR CARD WAS A 5 

THE DECK MOM CONTAINS 
1 1 t 

5 2 J 

4 4 4 

6 S 

h & a THE RUNMINB TOTAL JS 29 

HY PLAV TS 2 

THE OEI>C NOW CONTAINS 

I I 1 



4 4 4 

5 5 

i, i> & THE RUNNINQ TOTAL IS 31 

YOU LOSE. BETTEft LUCK NEXT TIME. 
NEW BAIIE - T.'Ph Y Oli N OR BlfilB B€T) . 
VOll HAVE WON C> GAMES. 

vaU MUST WIN 3 BAteS TO PLAY 'BIG WT' . 
NEW SAME? TVP8 Y Oft N OR BCBIG BET). 

OK 



aeR«i2 

i MAINLINE WORDS CDNT. 31 BV TONY LEWIS) 
: BISBET^ 

MTBli^bET.' 

II ;-t i.UKDtvUM l--i> a. 

n- YOLiLose 1 

I--LSE YOUftCARD O 
THEN 

ELSE 31 CARDBUM C3 < 
IP VOULOSE 1 

ELSE O i NOT 1ST) MVBISBET2 O 
THEN 
THEN 
UNTIL I 
— > 

SCR»65 

I MAINLINE WORDS CONT. 31 BV TONY LEWIS) 
I BIGBET S HOrE 

WELCOME TO 'BIB BET", THE FINAL PHASE OF 
THE SI GAME. )Wll fiAMES WILL BE PLAYED." 
Cft . ■■ YOU Will, lju nup l- IN lirtMt ntJt AND 
1 WtLL tiO HKSr IN tiAME TWO. IjOOD LUCK." 

yll .hli- ri 

.- HIT ANY KEY AND I WILL BEBIN GAME 2. ' 

CR KEY DROP NEWSAME 
SETFLASH BJG BET SAME 2 Th« PJNALE" 
CR CR SETNDRM 

d 1 l^W.- 1 .> 

C\i * " 

HELL UtD Yum fin'^E Ti-*L CORRECT ANALYSIS-' 
IF SO, THgW BEE II tu'l ;:>-r! I IGUrit" UIIT" 
Cft 

WHO WINS WITH A 1ST CARD OF ONE OR TWO. 
IT'S A TOUSH COMBINATORIAL PtmBLEH! 
1 ( SET FINAL EXIT IN nAIN31> s — > 



T'.f-E IN Ci'iKiJ i ■- ft 
YOUFi CtiKI) lilni, h 

ThIE DECK NOW CONTAINS 
1111 

2 2 2 

-J- ^ 
4 4 4 4 

3 S S & 

t> 6 t 6 THE RUNNINS TOTAL IS 5 

MY PLAY IS S 

THE DECK NQN CONTAINS 

1111 

2 2 2 

4 ■* '1 -1 

^> "Ti 

6 :> <i fHE RUtjMlrJG TOTAL IS 10 

TYPE IN CARD 1 - i 
YDUR CARD WAS A 6 

THE DECK NOW OINTAINB 
Jill 

2 2 2 

3 3 3 

4 4 4 4 

s s s 

6 6 THE RUNNING TOTAL IS 16 

MV PLAY IS 1 

THE DECK NOW CONTAINS 

1 1 1 



4 4 4 4 

s s s 

b 6 6 TME RU^MINe TOTAL IS 17 

TYPE IN CAfiO 1-6 
YOUR CARD HAS A S 

THE DECK NOW CONTAINS 

1 1 1 

2 S 2 

A 4 4 4 

5 5 S 

lb & 6 THE RUNNING TOTAL IS 20 



FORTH CLASSES 

LAXEN AND HARRIS, INC. 
24301 Southland Drive 
Hayward, CA 9*5*5 
(415) 887-2894 

Introductory classes 

Process control 

Applications programming 

Systems level programming 

GREG STEVENSON 
Anaheim^ CA 
(714) 523-4202 

Introductory classes 



KNOWARE INSTITUTE OF TECH- 
NOLOGY 
Box 8222 

Stanford, CA 943D5 
C40B) J38-2720 

Introductory classes 

Graphics classes 



INNER ACCESS CORPORATION 
Belmont, CA 
(415) 591-8295 

Introductory classes 



FORTH, INC. 

Z309 Pacific Coast Highway 
Hermosa Beach, CA 90254 
(213) 372-8493 

Introductory classes 
Advanced classes 
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SIMULATED TEKTROMICS 
4010 GRAPHICS 
WITH FORTH 

by Timothy Huang 

Portland, OR 97211 

In this articie, I am going ta tt=ll a true 
story. For those people wh think FORTH 
is a religion, they might Just consider this 
to be my testimony. 

Last November, I had access to a vary 
little known, but well built microcomputer 
— MX 964/2 by Columbia Data ProdLicts, 
Inc. of Maryland. This little machine has 
two Z-80A CPUs. Oie is for the Host and 
the othsr for terminal. There are 64 K of 
RAM In the Host, md 32 K of the Ter- 
minet RAM is dsdicat«d to the 512 x 256 
bit mapped graphics. It also includes a 9" 
CRT, 2 doiible density drives, keyboard, 4 
serial ports, and 4 parallel ports. Itt all In 
one piece. It boots up with whatever 
operating system is on the disk after 
powered up and the carriage return key 
has been pressed. Beautiful isn't it? 

However, there is a big problem, as 
with most microcomputer companies, the 
instruction manuals are terriale. And 1 
mean terrible! Let me just give you one 
examle: "For this information. pie;sse see 

figure only to find there was no such 

figure and no page number. 

Graphics are one of the most impor- 
tant features with this machine. 512 x 
bit mapped graphic is the best that 
can be expected under the price al- 
lowance. There are quite a twM well known 
microcomputers on the market claiming 
High Resolution Graphics. But those High 
Resolution ones are just like a big blob 
compared vrith the individual pixel that bit 
mapped. So, I have a nice machine with 
all the fancy graphic capabilities, but 
lacking the key to open it. Anxiety 
mounts up quickly. 

I have a friend who's an excellent 
SOao/ZGO assembly programmer. He im- 
plemented UCSD Pascal for a microcom- 
puter. Naturally, since tie was the first 
one, it seemed logical to seek his help. 
With a poorly written computer manual 
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:>ELA'iEE 
iCELAV 



k Q DO !>E^A1fEi:< LO:',T , i '^ii iSi-.'.iitz 



(we at least knew that the graphic part 
simulates Tektronics 4010), he spent a 
whole week just trying to c^sw one mere 
square along the edges of the CRT. Seem- 
ingly It would be an easy job, but even so 
it never came near to what he would have 
liked. Later on, I spent a coi^le of weeks 
twiddling with Microsoft B^IC compiler 
and it also produced Icusy results. 

At the same time, I received my 8080 
fig-FORTH listing. So, I typed the whole 
60 K of assembly listing with tiie lousiest 
text editor (i.e., KO. {~OM). [t iwas a mon- 
umental job. Nevertheless, [ bad the fig- 
FORTH up and running. 

By now, I w3s very ilespcratR to get it 
going. Equipped with tho ^ORT[^ power 
and the poor manual, I set forth to try the 
graphics again. Arjain, I sought help from 
a friend who works for Tektronics and is 
experienced with FORTH. With FORTH, 
tlie whuin t^sit turned into a very simple 
job, connpared to the previous attempts we 
had with the assembly and BASIC. Thus, 
now I am steadfast In my belief in 
FORTH. 

Screen 10 and 11 sets up the variables 
and the Columbia Mb(964 hardware depen- 
dent words. The X-coordinate starts at 
the lower left comer as 0, far right as 
1023, while Y = starts at the lower left 
corner to the top as 779. Screen 12 to 14 
defines the basic words, which draw the 
line, move the cursor, relative draw and 
move. Screen ,1 ^ defines the words to 
draw a square and the era^inq of it. 
Screen 16 lets me draw many squares. 

1 know that there are stitl a tot of nice 
words that can be written, such as, to 
draw triangles, curve lines, etc. But, from 
this small exercise, 1 am totally convinced 
the FORTH is the one I will use from now 
on. 
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A VI3ED VERSION OF MASTER hSND 

David Butler 
Dorado Systems 

The writing of this program served as 
my introduction to FORTH. Using the fig- 
FORTH Installation Manual, 1 stumbled my 
way through the basic concepts of FORTH 
and eventually arrived at this video 
Master Mind game. The game is derived 
completely from the original boartl versinn 
of Master Mind, thjerefore, all credit for 
the game itself go«8 to the Invicta Game 
Company. 

The program contains many of the 
functions found in video editors, inckidirn] 
cursor management and character col- 
lactloru The sequence of this computer 
version of the game is as follows: After 
displaying the directions, the program 
prompts the player to enter his skill level. 
Ttwn a 'secret code' is generated with the 
help of the player tapping the space bar. 
The screen Is cleared, and a Vnaak' of the 
Master Mind playing board is displayed. 
The cursor lands at the location where the 
player is to begin entering his guess. The 
program retains control of the cursor, re- 
sponding to the player's key strokes. 
Backspacing and tabbing are allowed, en- 
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# 18 

( I4aster Mind 
— > 



in Forthf 1»Y David A. Butler 



DflB-17nov80 ) 



D^vid A, Butler 
33 SOU nission Blvd 

Apt 126 

Union Citv, Cfl. 94537 
(415) 487-6039 
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SCR 
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IS 



■f!-B-»-9-» A ncte atMMjt stvie: If there is 3riv, it is ari accident. 
This lijas my first application in Forth, so it may lacl< 
soffl« «l«tf4nc«. 



Requirements! 



A videfli displav 80 x 24 characters-, 
cursor addressing and clear screen 
■functions. 
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# 19 

( Master Mind -netes- 

— > 

This is an impl ementat i i>ri of Master Mind bv Irivicta. 
Th-& same is very popular tie cause it is easv tc> learn arrd ^ 
challenge tii riav. There is 3 bit of luck to it, but it is 
mainW an exercise in loaical deduction. A "secret" dode is 
venerated, and it is "cracked" bv anairzintf « set of clues. 

Those familiar with the oriairial board Same wiM have no 
difficulty adiu=tina to the computer version. To neiucomersi 
fij'ilou th-i directicns carefully and you will have it in no 
time. The Forth version is functionally identical to the 
board version. It is written in fis-Forthi and has been run 
successfully on 6502. 8080. ZSO. and 68000 processors. It 
is a seed demonstration prosram as well as an enjovable aame. 



# 20 

( Master Mind set up some variables 

: TASK ) t FORGETTABLE MARKER ) 

VARIABi^E COLCHIS 23 ALLOT COLORS 30 BLANKS 



O VARIABLE SCODE 2 ALLOT O VARIABLE GUESS 2 ALLOT 
O VARIABLE SECRET 2 ALLOT 

VARIABLE BLACKER O VARIABLE WHITER 
6 VARIABLE «COLORS 

3 VARIABLE CUR.ROIiJ 23 VARIABLE CUR, COL 

1 VARIABLE XLOC 1 VARIABLE YLOC VARIABLE BONE 
— > 



DAB-17nov80 ) 



( Master Mind set up - CiTint. DftB-17novB0 ) 

: C. CONST AWT ." YELLOWftEli BLACK GREEN WHITE BLUE 

VARIABLE CdLuR.KEY 6 ALLOT ( "colors" table > 

( Use the sum of the ASCII code of the first 3 letters ) 
( i.e. BLUE = "B" + "L" + "U" = 66 + 76 + ^ = 227 > 



234 COLOR. KEY C 
207 COLOR. KEY 2 + C! 

232 COLOR. KEY 4 + C! 
96 COLOR. KEY 6 + C! 

VARIABLE #ATTEMPTS 



219 COLOR. KEY 1+ C! 
222 COLOR. KEY 3 + C! 
227 COLOR. KEY S + C! 



< used to keep score > 
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( Master Ml rid pr i:'mpt an -J ran d om i :> <? DAB- 1 7riov80 ) 

( These de-f i rr j 1 5 'jris a St the rarnlciiti values for the S^ime ) 



NEWCOUNT ( tCOLORit + ] J ) 
IF 1+ ELSE DROP 1 



THEN ! 



RAND 



1 BEGIN NEWCOUNT ?TERMINftL UNTIL KEY DROP J 



ASK. FOR. RANDOM To randoinize. tap spac« bar 4 timfis." 

4 DO RAND I SCODE + C! LOOP CR ! 



ASK. FOR. LEVEL 

CR . " Level 1 or 2 ? 
50 = IF 7 #COLORS 



KEY IXJP EMIT KEY EMIT 
ELSE 6 •COLORS ! THEN CR \ 



— > 
# 23 

( Master Mirrct 

! COLOR. FIND 

1 - t * 



tranelate color to nutner-ic 



DAB-l/novaO ) 



( 1 COLOR* 3 L J TYPES COLOR FROM #) 

C. CONSTANT 3 + + 6 TYPE » 



: translate::. CODE 

( coriv«Pts color # from SCODt to CiliLOR.KEY ) 
( rmmer-ic value in array "SECRET" ) 
4 O DO SCODE ! + Ce 1 - C01..0R.KFY + Cg SECRET 

I + c; LOOP ; 
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J ft> R> R> [COMPILE! R SWAP >R SWAP >R SWAP >R 5 
-> 
24 

Master Mind cursor motiorr 

Of course. CRT dependent. Here is Heath! } 
t »«* start CRT dependent words »«* ) 

CURSOR ( CY3 IX J 13 ABSOLUTE CURSOR POSITION ) 

31 + SWAP 31 + 89 27 EMIT EMIT EMIT EM7T ! 

CLEAR ( CLEAR CRT SCREEN > 27 EMIT t>9 EMJV ? 

HOME ( PUT CURSOR AT HUME POSIT i UN > O O lUHSON : 

( -in*-* end Dt- ':R"i dep-5ndert words **f* 

SHOW, COLORS ( niiPLflY iioLOR i: HOI ct- 

7 1 DO I 2 + CURr^.OR I COL. i^iR. F 1 nn LOOP 

#i:.0LOh;S: e - = IF- - S/ CURt^f.lR ." <BLANK>" ELSE THEN 

12 58 CURSOH , ' TAB t>et!in='en tdlors," 

13 58 CURSOR ." RETURN to Set clu**." 5 

-> 
25 

Master Mind bo^jrin 'avc.ijt mask DAF- 1 7 rm vSG ) 



BAR ."!■'; : DASH . " 
TITLE 21 SPACES 

==== MASTER MIND 



1 FOARO i^VMBuLS ) 



DASHER 2 21 CURSOR EAR 32 O DO . " LOOP BAR CR t 
CLINE DUP 21 CURSOR BAR 54 CURSOR BAR ! 



! SPACER 21 CURSOR t--^—^ " i' 

! CBLOCK DUP CLINE t+ SPACER i 

t HIDDEN 3 23 CURSOR ." XXXXXX XXXXXX XXXXXX XXX>XX" 

: DISPLAY. BOARD 

CLEAR TITLE DASHER HIDDEN 24 3 DO I CBLOCK 2 +LOOP 
SHOM. COLORS ; 



abling the player to keep changing his 
guess until he is satisfied that it is consis- 
tent with the clues he has thus far receiv- 
ed, A correct qucss is the result of the 
player's loqicMl dec^i t.irjii (or very good 
luck) h^ised on h.i;^ previous clues. The 
directions on srree.'i '>] explain the mean- 
int) oT t'-v?, twu types i)f eliies. 

When the p!;iyer yiqrial"! he is ready, 
the program compares tho player's guess 
to the secret code which was stared away 
earlier. Clues are generated and dis- 
played, indicating to the player how close 
he is to the solution. The player has ten 
chances to deduce tlie secret code. 

There are many improvements vMch 
could be made to this program to take ad- 
vantage of more of FORTl-rS built-in 
vocabulary — most notably PAD and re- 
lated words. For those short of memory, 
note that the directions could be short- 
ened, left out, or read from disk with no 
change to the overall logic of the pro- 
gram. 

Further notes und coriinients may be 
found in the source screens. 



Page 159 



SCR # 26 

( Master Mind cursor trackif>3 definitions DAB-17nov80 > 

1 

2 t X XLOC Si ! Y YLOC g I 

4 : XBUMF' X 52 = 

5 IF 23 DUP CUR.COl. ! XL.pX ' 

6 ELSE 1 XLOC +1 X CUR.COL 6 8+= 

7 IF X CUR.COL ' THEN 

8 THKN ! 

lO : UNBUMPX X 23 = IF 52 XLOC ! ELSE -I XLOC +' THEU ! 
11 

12 ! TAB CUR.COL e 47 = 

13 IF 23 CUR.COL f 

14 ELSE 8 CUR.COL 

15 THEN CUR.COL 6 XLOC ! DROP Y X CURSOR ; — > 

SCR # 27 

{ Mastsr Mimj rharact^r c4n«ction/editins DAB-17novSO ) 

1 : BACKSPACE X CUR. COL g = 

2 IF DROP 

3 F.LSE UWBUriPX Y X CURSOR SPACE Y X CURSOR DROP 

4 32 COLORS X + 23 - C! 

5 THEN i 
& 

7 : PROCESS ( tCHAR] — CI PROCESSES CHPStt MANAGES CURSOR ) 

8 DUP EMIT COLORS X + 23 - Of XBUHP Y X CURSOR 5 

9 

10 I GET, CHAR KEY DUP 127 - 

11 IF BACKSPACE ELSE DUP 9 - 

12 IF TAB ELSE DUP 13 ■= 

13 IF 1 DONE '. DROP 

14 ELSE PROCESS THEN THEN THEN t 

15 — > 

Si:;R # 2S 

C Master Mind Suess / row section DAB-17novSO > 

I 

2 

3 

4 : INITIAL 2 • 3 + DUP YLOC ! CUR. ROW ! 23 23 XLOC 

5 ! CUR.COL i Y X CURSOR 

6 30 DO 32 I COLORS + C! LOOP ! 
7 

S ! GET. COLORS INITIAL PONE ! BEGIN GET. CHAR DONE S UNTIL ! 

9 

10 ! PARSE. GUESS 4 DO I 8 « COLORS + Ce 

11 r :3 * COLORS 1+ + C@ 

12 I t: » CviLC'R:- 2 + + Ce 

13 + + i GUESS + C! LOOP 5 

14 — > 
15 

SCR # 29 

O ( I1a.st«r Mind Clue feneration 0A6~17riovSO ) 

1 

2 •■ CLUE. CHECK 

3 BLACKfR ' O WHITER ' ( INITIALIZE COUNTS ) 

4 4 O DO 

5 SECRET I + f.e. GUESS 1 + Cg = ( CHECK FOR DIRECT HIT ) 
S IF 1 FiLACC^■R■ +1 O 1 HJESy + C! 

7 rHbN LMi.ip 

8 4 DU i.'lJf.^ 1 + i c;i > ] (- . [ (■ MO H J r ) 

•? 4 o on 

10 GUESS 1 + SLCRHT J + Cfi = ( CHfcUK FuR WM1IF_ ) 

1 1 IF 1 WHITER +' 1 I GUESS + C> LEAVE 

12 THEN 

1 3 LOOP THEN 

1 4 LOOP i 

15 — > 
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Master Mind 



i>r«sent c1u«s 
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GIVE. CLUES PfWSE- GUESS CLUE.CWECK 

Y 1 CURSOR BLACKER @ . . " BLACK " 

WHITER e . . " WHITE " 5 
UNMASK 3 23 CURSOR 

4 o uo r scoDE + ce color. find I 3 = 

IF ." " ELSE " THEN LOOP 23 1 CURSOR ! 

?ft6flIN 20 5S CURSOR . " TYPE MASTER TO" 21 58 CURSOR 
." PLfiY AGAIN." UNMASlf 23 1 CURSOR 5 

lose-:r ifc se cursor . nice try but" i7 ss cursor 

." NO CltSAR. " -AGftlN ; 

WINNER ifc '58 CURSOR ." PRECISELY. " #ATTEMPTS ? 
." TRYS. " 7A0AIN S 
-> 



# 31 

< Master Mind 



Directions to plaver 



PAB-17nevS0 > 



: DIRECTIONS CL.EAR CR CR CR CR CR 
10 O DO LOOP . '■ Welcjini- to MASTER MIND." CR CR 
. " object of Maistwf Mind i? to break the 5ecri?t code." 

CR ." The ci>niPut^r [ui I 1 f' i ■ ^ t h iecri?t iiodei and you rriust" 
Cfi ." fiaure it out. Iiji'i 1 i.'iii- vMinj; ^re alveri!" CR 
CR -" (1) # BLACK rn>iir,-- that , o u t.s.vs^ *t p^^s: C:irr*i- : " 'VR 
. " i ri b 13 1 h r; ci 1 ,;. !-■ 41 r, .j p .;, 5 ]. 1 1 CI n . " C:(i i :h' 

." (2) # WHITE means that vou have # peas of the " Ch 
correct color that are incorrsctlv " CR 
Pl aced. " CR CH 
." Be syr* to spell the colors correct I v. Vou riia r tah amoijiiEi 
CR ." th« 4 positions until vou've make vour best Suess." cR 
CR Tvpe CRETURN3 to receive clues." CR CR Good- luck." 
CR CR ! — > 



SCR * 32 

( Master 
I 



Mind 



++ HWAL ++ 



DAB-i7nov80 ) 



AM40UNCEMENTS 

NEW JERSEY FIG CHAPTER BEING 
FORMED 

Interested parties should contact: 
George B, Lyons 
280 Henderson St. 
(212) 696-7606 - days 
(201) 451-2905 - evea 



BOSTON FIG 

MEMBERS 



CHAPTER SEEKING 



Interested parties should contact: 

R. I. Demrnw 

P. Q. Box i')8, Blv. Sta. 

Andover, MA 01810 

(617) 5B9-6a00 x 198 - work 

(617) 664-5796 - home 



MOUNTAIN WEST 
ORGANIZING 



FIG CHAPTEH 



Interested parties in the greater Salt Lake 
City area should contact; 
BUI H&yvmoa 
(801) 942-8000 

TECHNICAL PRODUCTS CO. MOVES 

New address: 

P. O. Box 235B 

Boone, NC 2B6Q7-2353 



FIG NEW 
CONTACT 



YORK CITY MEETING 



MASTER 



DIRECTIONS # ATTEMPTS 



4 ASK. FOR. LEVEL 

5 D I SPLAV . BOARD 

6 10 DO 

7 1 #ATTEr«JTS ■ 
5 PARSE. GUESS 
9 BLACKER « 4 = 

10 IF WINNER LEAVE 

1 1 ELSE THEN 

12 -1 +Loap 

13 BLACKER fi 4 < 

14 IF LOSER ELSE THEN 
IS 



ASK. FOR. RANDOM 
TRANSLATE. CODE 



( put UNMASK to debus > 



I GET. COLORS 



GIVE. CLUES 



MASTER 



«> MASTER MIHP 



<Th*^B Ar* hidden i RED 



BLUE ONCEH 



REP 
WHITE 



4 BCACK 





UHITE 


3 hEfi 




ftLUt ■ 




1 SLACK 


3 




; RED 


H_L€ 




REP 






[ "^E 






RED 


PEP 


H-ACl" 


1 


UHl TE 






BLACK 


HHITE 



'. PREt JSEtV. 
t 4 TKieS 



James Basile 
40 Circle Drive 
Westbury, NY 115900 
(516} 333-1298 

DALLAS-FT. WORTH METROPLEX FIG 
MEETING CHANGE 

Meetings now being held at: 
Software Automation, Inc. 
1005 Business Parkway 
Richardson, TX 

contact: 
Marvin Elder (2la) 231-9142 
Bill Drissal (214) 264-96BQ 
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TRANSFER OF FORTH SCREENS 
BY MODEM 

Guy T. Grotke 

Forth Gear 
San Diego, CA 

Here is a simple but hopefully useful 
set of definitions for serial transfer of 
FORTH screens between machines. 
Several of us in the San Dieqo FIG are in- 
terested in sharing software, but we have 
been unable to do so because of all the 
different disk forrnats in use. While only a 
few had access to similar machines, we 
took a poll and found that more than 90% 
had RS-232 ports. The following two 
screens permit unidirectional transfer 
with a modem over telepiione lines at 500 
baud or hardwired at 19,200 baud. The 
definitions are not particularly sophisti- 
cated. There is no error checking or 
ack/nack with retry. Since it is source 
code which is being transferred, some 
editing will probably be necessary anyway, 
so such safeguards aren't worth the effort 
to write them. 

There are four definitions which are 
entirely system dependent in each 
screen. These are SOUTPUT, COUTPUT, 
SINPIJT, and CINPUT. Respectively, they 
direct output to the serial port, output to 
the console, input from the serial port, 
and input from the console. If your sys- 
tem doesn't use I/O flacjs or vectors, you 
may have to write serial port drivers and 
point KEY and EMIT to them for 
SOUTPUT and SINPUT. In screen 80, 
these four words are defined for an 
APPLE running a serial interface in slot 
two ( driver at tCZOO ). In screen 58, they 
are defined far an Ohio Scientific with the 
normal serial port found in the personal 
modfils. These are examples of vectored 
and flagged I/O redirection. 

The remaining definitiohs should be 
quite universal among fig { and other ) 
systems. Screen SO contains all that is 
necessary to receive screens under the 
control of the sender. FINISHFD and 
REf'L^IVE simply redirect input and out- 
put. The word P redefines the fig editor 
word P to do the same thing except with 
1/0 redirection. Note that these three 
definitions are simple and fool-proof 
enough that they could be sent to another 
computer if that computer was first told 
to accept all input from the serial transfer 
line. Once these definitions were com- 
piled by the receiving system, screen 
trar^sfer could iiegin, Tn screen ^B, the 
word WAIT wails for anything to he sent 
back from the receiver with a carriage 
return on the end. The word OK is defined 
just in case the receiver sefids one or more 
OK's back to ttie sender during trartsfers, 
SLND-SCREEN will send a screen to the 
receiver, one line at a time, by emul.^Ling 
a user entering lines with the reci'iver's 
line editor. First SEND- SCREEN asks the 
receiver to list the screen being sent. 



This insures that the proper disk blocks 
are resident. After the LIST, the receiver 
will reply "OK" followed by a carriage re- 
turn, WAIT makes the transmitter wait 
for this carriage return. This is the only 
handshaking needed. Each line's text is 
sent preceded with the letter P and a 
spaee, and followed by a carriage return. 
WAIT causes the transmitter to wait for 
the receiver to reply "OK" after each line 
is sent. SEND is a multi-screen transmit- 
ter. Note that tlie range of screens re- 
ceived and recorded on disk will corres- 
pond exactly to the screen numbers sent. 



Part-time - New York-New Jersey Area 

Assist i ntfirnntinnally known sound 
artist, Max Neuliaiis, develop additional 
software for micro computer controlled 
sound syntlvjsis system. FORTH con- 
trolling 12 synthesizers from CRT Light 
Pen Terminal, 

Moderate fees, travel possibilities, 
hai'dwarc experience preferred. 
Send information or resume to; 

Max Neuliaus 

210 "ith Avenue 

New York, NY 10010 



If that is inconvenient, a variable contain- 
ing an offset or starting receiver screen 
number could be added. 

The proof that it works is before yoU! 
the different screen formats and distant 
screen numbers reflect the fact that 
screen 58 was written on my OSl and sent 
to my APPLE to be printed. I have used 
these definitions to send a 6502 assembler, 
a database manager, and several hundred 
data entries between my machines with no 
trouble. 



Independent FORTH programmers to im- 
plement Marx FORTH for TRS-BO, Apple, 
CP/M and uther systems. Royalties paid 
for best implementation with most en- 
hancements. Great [opportunity for the 
cofnpetitive programmer who, like me, 
would like to make a living at home and 
not have to move to California to do it. 

Contact: 

Marc Perk el 

Perkei Software Systems 
1636 N, Sherman 
Springfield, MO 65B01 
(417) B62-9850 



\]. Screen Transfer" 



3 



2 

2 2322 

1 2321 

2 2321 
CI 



1 HEX 

2 : SDlllPLJT 
,:• ; COLITPU't" 

4 : SINPUT 

5 : CINPUT 
'J : SDUT SOUTPIIT 

7 : OK ; 

8 : SE;ND.S[;ReeN 
•? SOliT DUP . 

ID JO O DO I sauT 

11 WAIT CINPUT 

1.^- : SEND 

IJ 1+ OWAP DO I 

II ;-;OUT CR Wfill 

15 DECIMAL ;S 



sending 



6TB 7-02-81 



C< ( SEND OUTPUT TO SERIAL + CONSOLE 

C! I < SEND OUTPUT ONLY TO CONSOLE 

C. ; ( GET INPUT FROM SERIAL 

C! ; ( BET INPUT FROM CONSOLE 

NFUT ; : SIN COUTPUT SINPUT ; 
! WAIT SIN QUERY ; 

i SCR# — > nothing lef^t 
COUTPUT LIST SOUTPUT " CR WAIT 

. " P " I OVER .LINE CR 
?TERMINAL IF LEAVE THEN LOOP ! 

( PIRST SCH# / LAST SCR# — > nothing left 
lEND. SCREEN r'TERfUNAl. IF LEAVE THEN LOOP 
SOUl FINISHED '■ CR COUTPUT s 



L^CR # BO 

^i i CONSULE/5LR1 At. I/O 

1 FPRrH DEPIMIIIONS HEX 



I.INLINK FDFO 36 ' 
SOUTPUl C200 Zts 
LOUTPUI' FDPO 36 
SINPUT C20O 38 ! 
CINPUT FDIB 38 ' 



I-DIB 3B 



B timOk DKFINIIIONE 



}'.-' : FINISHED CINPUT COUl PU I FLUSH 

11 : p COUTPUT P SOUTPUT ; 

12 : RECeiVt COUTPUl SINPUT ; 
11 FORTH DEFINITIONS FD [ TOR 

1.4 DECIMAL 

1. 5 ; S 



FELP WANTED 
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PRODUCTS REVIEW 



SORCERER-FORTH 

by Quality Software 

For ^out a year, I have been using an 
excellent ver^on of fig-FORTH tailored 
for tlie Exidy Soircerer. It is a product of 
Quality Software, 6660 Rsseds Qlvd., 
Suite 105, Reseda, CA 91335. 

FORTH for the Sorcerer iiT>pifi(nents 
RekiaGe l.l of 8080 fig-FORTH. It in- 
clurieii a full scrF>en editor and input/- 
[)utpi;t routines for the keyboard, screen, 
and both serial and CeiitrooicM printers. 
The Sorcerer's excellent graphics are also 
available. 

Disc storage is simulated in RAM, A 
32 K Sot'cerer can hold 1'4 screens— with 

K, up to 50 screens. Tape- handling 
routines are provided, to move data to and 
from the simulated disk snace. The CP/M 
disk interface routines are present, but 
not implemented. 

One of the nicest features of Quality 
Software's FORTH is its dacumentation. 
Ttte 126-page manual is well-written, and 
relatively complete. It includes sufficient 
information for a FORTH neophyte, 
though It does not delve too deeply into 
systBim operations. 

Quality Software permits— even en- 
courages — users to market application 
programs incorporating Sorcerer FORTH. 
The/ do ask that written permission be 
obtained frist, but promise that permission 
will normally be granted after review of a 
sample of the program, 

I highly recommend this excellent pro- 
duct, and ask that you include it in your 
periodic listing of available software. 

C. Kevin McCsbe 

1560 N. Sandburg Terr. #4105 

Chicago, IL 60610 

(312) 664-1632 



A COMPARISON 0^ TI^ANSFORTH 
WITH FORTH 

Insof t 
Med ford, OR 

A question we've been hearing a lot 
lately is "How does TransFORTH compare 
with fig-FORTH?" In structure, Trans- 
FORTH is similar to most version of 
FORTH, but is is not a FORTH-79 Stand- 
ard Systen. The major differences are 
outlined in this paper. 

Floating-point numbers 

In TranaFORTH, ttie stack itself con- 
tains floating-point numbers, with 9 digits 
of accuracy. No special sequences are 
required to retrieve floating-point 
values. Words ere available for storing or 
retrieving dngle bytes and two-byte cells, 
but all values are stored on the stack in 



floating-point format. Numbers can be as 
large as lE3e, and as small as lE-33. 

Transcendental functions 

The floating-point format mentioned 
above makes TransFORTH a natural lang- 
uage for transcendental functions. Func- 
tions irwluded in the system which are not 
found in most versions of FORTH 
iru:lude: sine, cosine, tangent, arctangent, 
natural logarithm, exponential, square 
root, and powers. 

Data structures 

TransFORTH contains words that will 
store or fetch 5-byte floating-fsoint 
values, S-b/te cells, and single byi.es fro'ti 
any location in memory. TransFdRTH 
dfies not have the fig-FOKIH <BlJlLt5S, 
DOFr)> construction, but instead uses a 
powerful built-in iirray declaration. 
Arrays can either fill space in the diction- 
ary, or be located absolutely in memory. 
Arrays with any number of dimensions 
may be declared, and eac^ dimension can 
have any length, within the limits of 
available memory. 

Strings 

Strbrgs are merely arrays (of any di- 
mension and size) with an element length 
of one. Each character occupies one byte, 
i.e., one element of the array. Built-in 
string functions included. 

Disk access and the editor 

TransFORTH does not use the virtual 
memory arrangeiTient found in most ver* 
sions of FORTH. Instead a standard DOS 
3.3 format i.ia^r', and files are called 
from the disk by namr?. 

TransFORTH includes a straightfor- 
ward line-based text editor. Tfie editor is 
not added to the dictionary as a list of de- 
fined words, but is Included as a separate 
module callable from Tran^ORTH. DOS 
text files are used for saving source 
files. This means that any text editor that 
uses DOS text files may be used for edit- 
ing TransFORTH programs. In addition, 
Tran#"ORTH program data may be shared 
with other programs and languages. 

Grehics 

Two graphics utilities along with a 
couple of graphics demo programs are in- 
cluded on the system diskette. One utility 
contains high-resolution graphics and 
Turtlegraphics commands, and the Other 
has low resolution graphics commands. 
The graphics capabtiities are added to the 
system by compiling these utilities into 
the dictionary. The hi-res package in- 
cludes a call to a module which allows 
text and graphics to appear together any- 
where on the screen. 

Vocabulary 

TransFORTH is a sirqle-vocabulary 



syr,ts::Ti. Re; later! programs can be grouped 
toijiii.ht!!' in disk files, rather lhan in sep- 
arate vooauularles. (Multiple vocabularies 
find their most usage in mutti-user sys- 
tems.) 

Compilation and speed 

All entries in TransFORTH are com- 
piled directly into 6502 machine language 
for greater speed. No address Interpreter 
is used. Even immediate keyboard entries 
are compiled before being executed. This 
means tiiat routines can be tested at the 
keyboard for speed before being added as 
colon definitions, 

TransFORTI-f is fast. It is not as fast 
on intirger versions of FORTH, because it 
handles by^RS with ev'?ry stack rnanipu- 
lation instead uf two, Traniir- Oi ^ T 1 H' [irc- 
grams will run faster than similEu- Apple- 
soft programs, arid show ;^ great increase 
in speed when longer programs are com- 
pared. 

While TransFORTH works much like 
Fig-FORTH, the differences between the 
two become readily apparent under closer 
examination. FORTH programmers will 
pick up TransFORTH with litUe trouble, 
but nearly all FCfflTH programs will re- 
quire translation into TransFORTH to 
take advantage of its powerful features. 
These features are accessible with a min- 
imum of work from the user, bringing a 
FORTH-like environment into the realm 
of practical scientific and business pro- 
gramming for the first time. 

EDITOR'S RESPONSE TO 
TRANSFORTH 

The above material is extracted from 
explanatory sales material from the pro- 
grar^ vfvidor, Cominentary we have indi- 
cated from TransFORTH users can be 
summarized! 

1. This implementation should be 
named as one of the CONVERS group 
of languages, as It compiles to as- 
sembly language rather than threaded 
code. 

2. It is easier to add floating point 
math to FORTH, than to alter Trans- 
FORTH to use integers for execution 
speed Improvements. Why not both? 

3. If the implementor had dene his 
DOS 3.3 interface using the standard 
FORTH word BLOCK, an immense gain 
in value would result. Direct access 
and DOS compatibility, 

4. <6U1LDS 00i:S> probably could be 
added but apparently the implementor 
doesn't know how or chooses to deprive 
his customers of this powerful struc- 
ture. Arrays are definitely net equiva- 
lent technically or philosophically. 

In conclusion, it appears that 
TransFORTH is a reverse PCB.ISH 
BASIC, with names rather than 
labels. A smalt amount of additional 
effort would liave built upon FCDRTH, 
rather than strip out major attributes.- 
-ed. 
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NEW PRODUCTS 



FLEX-FORTH 

Complete compiler/ interpreter, assem- 
bler, editor, operating system fort 

APPLE II computers $25.00 
KIM computers $21.«] 

FLEX-FORTH is a complete structured 
language with compiler, interpreter, 
editoTf assembler end op«ratlng system for 
any APPLE n or APPLE 11+ computer with 
48k and disk or KIM with 16K of mem- 
ory. Most application programs run in less 
than 16K starting at lOOD HEX and often 
as little as 12Kt including the FLEX- 
FORTH system, itself. 

This is a full-featured FORTH follow- 
ing the F.I.G. standard, and contains a 
6502 assembler for encoding machine 
language algorithms if desired. Tile 
assembler permits macros BEt^IM... UNTIL, 
BEGIN... AGAIN, BEG1N...WHILE,,. 
REPEAT, IF...END1F, and 1F...ELSE... 
ENDIF. Editor and virtual memory files 
are linked to the Apple DOS 3.Z. An ap- 
plication note for upgrading to DOS 3^ is 
included. Object code on disk with user 
manual sells for t25J0O, (APPLE) or on 
cassette with user manual for $21^ 
(KIM). 

A complete source listinq is available 
to purchasers of FLEX-FORTH for 
$20.00. The source is valuable in both 
showing how FORTH works and in giving 
examples of FORTH code and integrated 
assembly code. 

Order from: GEOTEC, 19Z0 N. W, 
Mil ford Way, Seattle, WA 98177. Be aure 
to specify machine. 

MARX FORTH Vl.l 

Perkel Software Svsf!;ms 
1636 N. Sherman 
Springfield, MO 65805 
(417) 862-9830 

Enhanced 2B0 fig-FGI-(TH irnplBmonled 
for Northstar Systerri enhancements in- 
clude link fielrfs in front, of name for fast 
compile speed; dynamic vocnbulary relini<- 
ing; case: artjumcnls-resuits with 'to' vari- 
ables: and more. 79 -Standard package in- 
cludes easy to use screen editor. 

Pricei $75J)Q 

Smart assembler, meta-compiler and 
source code (in FORTI-0 sold separately. 
Call for information. 



TWO NEW PRODUCTS ( ROM 
LAXKN AND HARRK, INC. 

Lax en and Hams, Inc. 
24}01 Southland Drive 
Hayward, CA 94545 

(4151 mi-imt 

1. Working FORTH 
Release 2.1 



"Starting FORTH" compatible FORTH 
software for a 8080 or ZBO computer 
system with the CP/M (TM) operating 
system. 

Copyright (C) 1981 by Laxen and Harris, 
Inc. All rlg}its reserved. 

This FORTH implementation is com- 
patible wth the popular book "Stardng 
FORTH" by Leo Brodie. It is intended to 
be a companion to the bool« to aid learning 
FORTH. It la also a complete environ- 
ment for developing and executing FORTH 
programs. It contains: 

Compilers 

Disk operating system 

Full names stored, up to 31 characters 

String handling 

Enhanced error checking 

16-t>it and 32-bit integer arithmetic 

and Input/ou^t 

This is a ^ngie-user, ringle-task sys- 
tem which is not ROM-able as ainplied. 
Floating point arithmetic and CP/M file 
access are not supported. 

This system as SLjpplied runs comfort- 
ably in a R08D or ZBO computer system 
with at least 32K bytes of KAM memory, 
at least one floppy disk drive (6^' single 
density, single sided, soft sectored format 
is assumed), and the "BIOS" part of the 
CP/M operating system. The use of a 
printer is supported but not required. This 
software may be easily modified to use 
other memory sizes or disk formats, it 
tequires 14K bytes of memory %*ich in- 
cludes 4K bytea of disk tnjffers. 

This FORTH system was adapted from 
the fig-FORTH model but is not fully 
compatible with that language dialect. It 
is also not fully compatible with the 
FORTH-79 Standard. The three dialects 
are similar, but the Starting-FORTH ver- 
sion has advantages over the other two. 

Price: t73J» - plus $2jn - i^cstage and 

Handling 

CP/M is a rEgistered trademark of Digital 
Research, inc. 

2. Leamion FORTH 
I. earning EOKTH i;; a computer aided 
instruction paok.iqo that intrsractiveiy 
teaches the ritiidfnf. ( 'le fundamentnis of 
the FORTH prngr^smmin;] iangudgo and 
philosophy. It consists of a fist of 
FORTH screens that mntain program 
source code and instrLiction Icxi.. It is 
based on the liook, "Starting rORTH," by 
Leo Brodie. It will run with any Starting 
FORTH compatible system, as well as fig- 
FORTH system. The manual is only one 
page long and describes how to load the 
system. After Wiat, everything is self 
explanatory. It is supplied on 8" single 
density diskettes in IBM 3740 format. The 
price is X33J)0 if ordered together with 
the Working FORTH Dl*. Please add 
$2.00 for shippiiiq and handling, and allow 
at least 3 weeks for delivery. 

Note: 8uy both for %55J00 plus %2J00 
postage and handling. 



POLYMORPHIC FORTH 

Abstract Systems, etc. 
1686 West Main Road 
Portsmouth, RI 02871 

[m) 6B3-0fl45 
Ralph E, Kenyon, Jr. 

Product Description: FORTH (Poly- 
Morphic fig-FORTH 1.1.0). 8080 fig- 
FORTH 1.1 without asmb. or Editor (uses 
PoiyMoTphic resident editorj 

A demo application which computes a 
table of values for a general quadratic 
equation is included. 

PolyMorphic Systems 8813, 8310 needs 
only 16K. Documentation on FORTH not 
included. 

Manual; documiintation covers parti- 
cular impleiiicntaUcj'i details for fig- 
FORTH to interface to the PolyMorphic 
Systems Microcomputer. Sorted VLIST 
included. 

Implementation document available 
separately. Separate document available 
for cost of postage. Product data avail- 
able on PolyMorphic SSSO 5" dinette 
format. 4 copies sold to date. I'rioei 
$4(UI0, includes shipping, diskette, (R.I. 
residents add 6% sales tax). Warranty 
limited to replacement of a diskette 
damaged in shipment. (We'll try to fix arty 
bugs discovered.) Orders shipped out 
within 3 days of receipt (usually next day). 

HEATH H89 FORTH 
MCA 
8 Newfield Lane 
Newtown, Conn. 06470 

MCA announces the availability of 
FORTH for the Heath HB? computer. 
MCA FWTH is 8080 figJTJRTH Vl.l 
configured to run on a single disk HB9 with 
32K or more of memory, utilizing HDOS 
1.6 or later. 

tvICA FORTH provides the standard 
FORTH facilities plus the following 
special feat. ires: HflOS file manipulation 
capability, a contrni character to restart 
FORTH (recover from loops), on-line 
tailoring of FOf^TI-f facilities (e.g., num- 
ber of disk buffers), ability to hook to sep- 
arately assembled routines, and use of 
Heath DBUG. 

Items supplied with FORTH include the 
fig-Editor, an 8080 structured assenibler, 
and two games provided as examples of 
FORTH programming. 

The documentation supplied with MCA 
FORTH is suitable for experienced 
FORTH programmer^ however, a bibli- 
ography of documentation for beginners is 
provided. 

MCA FORTH is available from MCA 
on a "j-l/a" disk for $25 inrludinq docu- 
mentation- Oacumr;ntation is available 
for $4.00. (Conn, residents please add 
sales tax). 
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NEW PRCXJUCTS FROM 
rjNER ACCESS CXJRPORATION 

Fig-FORTH comp!Ier/tntecpreter for 
PDP-IJ for RTU, RSXllM or sUind- 
slona with source code in native as- 
sembler. Included in Uiis package are 

fin a^snrTiblsT nraJ editor witten in 
ruu Fi 1 iirid iii?:tnllation documenta- 
tion. Price: $80.00 

This is available on a one 3" single 
density dis)<ette only. 

Reference Manual for PDP-li fig- 
FORTH above. Price: $20.00 

Fig-FORTH compiler/interpreter for 
CP/M or CR0H«:MC0 COOS system 
conies complete with source code writ- 
ten in native asspmblpr. Included in 
this package are nn sisseiiiljler and 
editor written in FORTH and instal- 
lation documentation. Price; SaOJKi 

Ail Ht^;[<et tt^?3 i^rt^ stnqle df;nsity^ witlt 
i/!>" diskpttsG in \26 hyte, 11 S(?ctor/- 
track forrnRt ;)iid D" cliskr-Ltes in 12B 
byte, Z6 sector/track (IBM) farrriat. 

Released on two 5-lA" diskettes with 
source in 8080 assembler. 

Released on one 3" diskette with 
source in 8080 essembler. 

Released on two 5-1 A" diskettes with 
source in Z80 assembler. 

Released on one B" diskette with 
source in Z80 assembler. 

Manual for Cf^/M (or Cromemco) fig- 
FGR TH above. Prices SZOiKI 

METAFORTH^^ Crass-con^iler for 
CP/M or Cromemco COOS to produce 
79-Standard FORTH on a target 
machine. The target can include an 
ipplicstion wIthcHJt dictionary heads 
and link words. It is available on single 
density diskettes with 128 byte 25 
sector/track funniJt. Target compiles 
may be rrfidilv prrjciuced for any of the 
following machines: 

CRDMEMCO-all models 
TRSeO Model U under CP/M 
Northstar Horizon 
Prolog Z80 

Released on two 5-1/4" diskettes or on 
one 8" diskette. 

Price) $mjaa 

Complete Zilog (AMD) ZB002 develop- 
ment system that can be run under 
CP/M or CrDmemco CDQS. System 
includes a METAFORTH cross com- 
piler which produces a ZBOOZ 79- 
Standard FORTH compiler/interpreter 
for the Zilog ZSOOO Oevelopment 
Module. Package includes a Z800Z 
assent ler, a Tektronix download 
program and a number of utilities. 

Released on two 5-1/4" diskettes or on 



one S" diskette. 

Price: $lyaS(U» 

5. Zilog Z8002 Development Module fig- 
FORTH ROM set. Tontajos 79- Stand- 
ard FORTH with Zfl0n2 assembler a^id 
editor in 4 (2716) PROMS. Price: 
$280.00 

CODE9 
Artiiur M, Gorski 
ZZ40 S. ! vanston Avenue 
Tulsa, OK 74114 
(918) 743-0H3 

CODE"? is ;i M6809 Assemblsir for use 
with any fiq-F URTH system. It features 
all M6809 addressing modes except long 
relative branch instructions. It performs 

syntax error checking fit assennhly time. 
Memory require^nenls: byLes free 

RAM above FORTH, CODE9 is distribut- 
ed as a commented ^source listing and 
manual. Price: $20.00 

PET-FORTH 
by 

Datatronic AB 
Box 42094 
S-1Z6 12 Stockholm 
Sweden 
(0)-8-744 59 20 
Peter Bengtson 

Product Descciption! Extended fig- 
FORTH for the Commodore CBM/PET 
coinputer series. 

Screen s;ditor, utilizing the special CBM 
r.crt-en editing possibiiities for compact- 
ness and ease of use, macro-assembler, 
double-precision extensions, CRT hand- 
ling, random numbers, real-time clock, a 
very cornplete string package, IEEE con- 
trol words, integer trig functions. 

An expension disk (coming soon) will con- 
tain floating point arithmetic including 

complex numbers, transparent overlay 
control words for data and program 
segments, a file system, and more. A 
METAFORTH compiler will shortly be 

avaiiab le. 

Runs on CBM £032 plus an 8050 dual disk 
drive. Other cofrfigurations coming: 4032, 
4040, VIC, and MicroMainFrame. 

8032 version runs in 32K only. 4032 

versions will run in either 16 or 32K. 

Manual Description: 322 pages, including 
all source code. 

Complete introduction, to FORTH, Special 
chapters cover the asembler, <BU1LDS and 
DOES>, IEEE handling, strings etc. 

Manual is available separately. 

Separate purchase price is $40JX1. This is 
not creditable towards later purchase. 

Product/Qrderirvg Data: Shipped as disk- 
ette and an accompanying security ROM, 
holding part of the Kernel. 



Currently, there are epproximately 73 in- 
stallations, after 2 months on the market. 

PHoei $290410 Includes diskette, ROM, 
manual, dipping and taxes. 

PET-FORTH, as all other Datatronic soft- 
ware, carries a life-time guarantee. All 
future versions will be distributed to the 
registered owners without any cost what- 
soever. 

Delivery is immediate. 

US dealers are invited, LIK sole distrib- 
utor is Petalecl Electronic Services Ltd, 
33/55 Portugal Road, Woking Surrey. You 
may also order directly from us. 



Diskette of FORTH Application Modules 

from 

Timin Engineering Company 
9575 Genesee Avenue, Ste. E-2 
San Diego, CA 921Z1 
(714) 455-9008 

The diskette of FORTH application 
modules, a nev/ proflnct by Timin Engin- 
eeriny, is !i v:irii=*y o^iekane of FORTH 
E^ourcc eor^e, it cc>!>r.ains iiundreds of 
FT^RTi'i definitinns not previovjfsly pub- 
lisfied. Included on the diskratte are data 
structures, so'lv/nrn devtilopment aids, 
string manipulalot 3, an expanded 32-bit 
vocabulary, a screen calculator, a typing 
practice program, and a menu ^ner- 
ation/aelection program. In addition, the 
dinette provides examples of recursion, 
(BUILDS... DOES> usage, output number 
formatting, assembler definitions, and 
conversational programs. One hundred 
screens of software and one hundred 
screens of instruetional documentation are 
supplied on the diskette. Every screen is 
in exemplary FORTH prograrTiming style. 

The FORTH screens, written by Scott 
Pickett, may be used with Timin FORTH 
or other flg-FORTH. Tha price far the 
dMcette of FORTH application modulea is 
$75J)0 Of other than 8" stmderd dtdc, acid 
ilSjn), To order the FORTH modules, 
write Timin Engineering Company, 9575 
Genesee Avenue, Suite E-Z, San Diego, 
CA 92121, or call (714) 455-9008. 



AUDIO fAi'^r;; or 
1980 FORML CONFERENCE 
AKD 19M FIG CONVENTION 

1. FORTH-79 Discussion, 200 min. Pticei 
$35.00 

2. Purpose of FIG, 37 min. Price: $10.00 

3. Charles Moore, 63 min. Prfcei $15 JK) 

4. FORTH, Alan Taylor, 47 min. Pricet 
$15^ 

Complete set $65.00 

edu-FORTH 

1442-A Walnut Street, #332 
Berkeley, CA 94709 



FORTH VEftXIRS 



The following vendors have veraions of 
FORTH available or are conmiltents. (FIG 

makes no judgment on my prochicts.) 

ALPHA MICRO 

Professignal Managenrient Servicea 
724 AraEtradero Rd. #109 
Palo Alto, CA 9«06 
(415) 85B-22ia 

Sierra Computer Co. 
617 Marie NE 
Albuquerquei MM 87123 

APPLE 

ID PC Company 
P. O. Box 11594 
Philadelphia, PA 19116 
(215) 676-3235 

IDS {Cap'n Software) 
281 Arlington Avenue 
Berk«ley, CA 94704 
(415) 525-9452 

George Lyons 
280 Henderson St. 
Jersey City, NJ 07302 
(201) 451-2905 

Micro Motion 

12077 Wilahlrs Blvd. #506 
Lds Angales, CA 90025 
(ZI3) SZ1.4340 

CROSS COMPILERS 

Nautilus Systems 
P.O. Box 1090 
Santa Cruz, CA 95061 
(408)475-7461 

polyFORTH 
FORTH, Inc. 
2309 Pacific Coast Hwy. 
HermosB Beach, CA 90254 
(213) 372-8493 

LYNX 

3J0I Ocean Park #301 
Santa Monica, CA 90405 
(215) 450-^466 

M & B Design 

B20 Sweetbay Drive 

Sunnyvale, CA 94086 

Mlcropolle 

Shaw Labs, Ltd. 
P. O. Bo^ 347 1 
Hayward, CA 94540 
(415) 276-6050 

North Star 

The Software Works, Inc. 
P, O. Box 4386 
Muunlain View, C A 94040 
(408) 736-4938 

POP-U 

Labo*«tory Software Systems, Inc. 
3634 Mandeville Canyon Rd. 
Los Angeles, CA 90049 
(213) 472-6995 

OSl 

Cansumer CcmifMiters 
8907 LaMesa Blvd. 
LaMese, CA 92041 
ai4) £98-8088 



Software Federation 
44 University Dr. 
Arlington Heights, VL fflW4 
(312) 259-1355 

Technical Products Co. 
P. a Box 12983 
OalnsviUe, FL 32604 

(904) 37Z-B439 

Tom Zimmer 
292 Falcate Dr. 
Milpitaa, CA 95035 

1U>2 
FSS 

P. O. Box 8403 
Austin, TX 78712 
(512) 477-2207 

6800 & 6B09 

Kenyan Vlirrosystems 
J '^27 Ciirr.j:; Avenue 
RedondQ Beach, CA 90278 
(213) 376-9941 

TRS-BO 
The Micro Works 
P. O. Box 1110 
Del Mar, CA 92014 
(714) 942-2400 

Miller Microcomputer Sarvicaa 
61 Lake Shore Rd, 
Natick, MA 01760 
(617) 653-6136 

The Software Farm 
P. O. Box 2304 
Reston, VA 22090 

Siriua Systems 
752B Ridge Hwy. 
Knoxvllle, TN 37921 
(615) 693-6583 

6502 

Eric C. Rehnke 

540 S. Ranch View Circle #61 

Anaheim Hills, CA 92087 

Saturn Software, Ltd. 

P. O. Box 397 

New Westminister, BC 

V3L 4V7 CANADA 

SOaO/ZBO/CP/M 

Laborritor v tvlicrosy stems 
4147 Beethoven St. 
Los Anqeies. CA 90066 
(213) 390-9292 

Timin Engineering Co. 
9575 Geriesss Ave. ifE-2 
San Diego, CA 92121 

(714)455-9008 

Application Psclcsges 

InnnSyG 

2150 Shattuck Avenue 
Berkeley, CA 94704 
(415) 843-8114 

Decision Resources Corp. 
28203 Ridgefern Ct. 
RanchQ Palo Verde, CA 90274 
(213) 377-3533 



68000 

Emperical Res. Grp. 
P. 0. Fiox 1176 
Milton, WA 98354 
(206) 631-4S55 

Flrmwara, Boaidi and MacMriM 

Datrlcon 
7911 NF 33rd Dr. 
Portland, OR 97211 
(503) 284-8277 

Forward Technology 
25S5 Martin Avenue 
Sante Clara, CA 950S0 
(408) 293-8993 

Roricwell International 
Nficroelectronlcs Davleea 
P,0. Box 3669 
Anaheim, CA 92803 
(714) 632-2862 

Zendex Corp. 
6398 Dougherty Rd. 
DtJblin, CA 94566 

Variety of FORTH Products 
Interactive Computer Systems, Inc. 
6403 Ot Marco Rd. 
Tampa, FL 33614 

Mountain View Press 
P. O. Box 4656 
Mountain View, CA 9404O 
(415) 961-4103 

Superaoft Associates 
P.O. Box 1628 
Champaign, IL 61820 
(217) 359-2112 

ConsidtarAa 

Creative Solutions, Inc. 
4801 Randolph Rd. 
RoekvillQ, MD 20852 

Dave Boulr.on 
581 Oakridge Dr. 
Redwood City, CA 94062 
(415) 368-3257 

Go FORTH 
504 Lakemead Way 
Redwood City, CA 94062 
(415) 366-6124 

If^ner Accpps 
51,7k Marine Viev/ 
Belmont, CA 94002 
(415) 591-8295 

John S. James 
P. O. Box 348 
iJerkeley, CA 94701 

Laxen & Harris, Inc. 

24301 Southland Drive, #303 

I lay word, CA 94545" 
(415) flB7-2894 

Microsystems, Inc. 
2500 C. Foothill Blvd., #102 
Pasadena, CA 91107 
(213) 577-1471 
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FORTH DIMENSIONS VO/i 



FORTH INTEREST GROUP 
MAILORDER 



FOREIGH 

USA AIR 

□ Membership in FORTH INTEREST GROUP and Volume 111 (6 issues) of $15 $27 
FORTH DIMENSIONS. 

n Volume tl of FORTH DIMENSIONS <6 issues) $15 $18 

□ Volume I of FORTH DIMENSIONS (6 issues) $15 $18 

□ fig-FORTH Installation Manual, containing tfie language model of $15 $18 
fig-FORTH, a complete glossary, memory map and installation instructions 

□ Assembly Language Source Listings of fig-FORTH for specific CPU's and 
mactiines. The above manual i& required for installation. Check appropriate 
box{es) . Price per each. 

□ 1 802 □ 6502 □ 6800 O 6809 

□ 8080 D 8086/8088 □ 9900 □ APPLE II 

□ PACE n ALPHA MICRO □ PDP-11 □ NOVA $15 SI 8 

° "Starting FORTH" by Brodie. BEST book on FORTH. (Paperback) NEW $16 $20 

□ "Starting FORTH" by Brodie. (Hard Cover) E $20 $25 

□ PROCEEDINGS 1 980 FORML (FORTH Modification Lab) Conference $25 $35 

□ PROCEEDINGS 1961 FORTH Univ. of Rochester Conference $25 $35 

□ PFtOCEEDINGS 1981 FORML Conference, Both Volumes Mfilir $40 $55 

□ Volume I, Language Structure $25 $35 

□ Volume II, Systems and Applications $25 $35 

□ FORTH-79 Standard, a publication of tfie FORTH Standards Team $15 $18 

□ Kitt Peak Primer, by Stevens. An indepth self-study primer. $25 $35 

□ BYTE Magazine Reprints of FORTH articles, 8/80 to 4/81 $ 5 $10 
D FIG T-shirts; □ Small □ Medium □ Large D X-Large $10 $12 
O Poster, Aug 1980 BYTE cover, 16x22" $ 3 $ 5 

□ FORTH Programmer's Reference Card. If ordered separately, send a FREE 
stamped, addressed envelope. 

TOTAL $ 



NAME MAIL STOP/APT- 



ORGANIZATION (If company address) 



ADDRESS.. 



CITY STATE ZIP ^COUNTRY- 



VISA * MASTER CHARGE # 

Expiration Date (Minimum of $1 0.00 on charge cards) 

Make checker money order In US Funds on US bank, payable to: FIG. All prices include postage. No 
ptiraAsse orefonr wMioui chock. 

ORDER PHONE NUMBER: (41 S) 962-S653 
FORTH INTEREST GROUP PO BOX 1 1 05 SAN CARLOS, OA 94070 



Support 
Your Local 

FIG 

Chapter 




■ULK KATE 

rosTAse 

PAID 

P*rnfiit No. 241 
Ht<\. Vi»w, CA 



FORTH INTEREST GROUP 

P.O. Box 11 05 

San Garlos, CA 94070 



Address Corrsction Requested 



